diff --git a/perl-xCAT-2.0/xCAT/PPCvm.pm b/perl-xCAT-2.0/xCAT/PPCvm.pm
index 1faed8c56..a7bc42570 100644
--- a/perl-xCAT-2.0/xCAT/PPCvm.pm
+++ b/perl-xCAT-2.0/xCAT/PPCvm.pm
@@ -179,7 +179,7 @@ sub mkvm_parse_args {
     ####################################
     if ( exists( $opt{n} )) {
         my @noderange = xCAT::NodeRange::noderange( $opt{n},0 );
-        if ( !defined( @noderange )) {
+        if ( !@noderange ) {
             return(usage( "Invalid noderange: '$opt{n}'" ));
         }
         $opt{n} = \@noderange;
@@ -409,7 +409,7 @@ sub clone {
     #####################################
     # Get all LPARs on source CEC 
     #####################################
-    my $filter = "name,lpar_id";
+    $filter = "name,lpar_id";
     my $result = xCAT::PPCcli::lssyscfg(
                                     $exp,
                                     "lpar",
@@ -994,3 +994,4 @@ sub lsvm {
 
 
 
+