arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cleaned up warnings generated from "perl -Wc"

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1546 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-06-02 13:47:09 +00:00
parent 5310f0d57e
commit 0b47f9d8f0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
perl-xCAT-2.0/xCAT/PPCvm.pm
View File

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