From 0b47f9d8f0aba5695fb55f7fb5f0a63b10eff44c Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 2 Jun 2008 13:47:09 +0000
Subject: [PATCH] Cleaned up warnings generated from "perl -Wc"

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1546 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT-2.0/xCAT/PPCvm.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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 {
 
 
 
+