Cleaned up warnings generated from "perl -Wc"

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1544 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-06-02 13:07:23 +00:00
parent 0b23e927ac
commit 76a126cfad

View File

@ -259,7 +259,7 @@ sub rnetboot {
$d,
\%opt );
}
my $Rc = shift(@$result);
$Rc = shift(@$result);
##################################
# Form string from array results