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

fix all warnings in routines add use warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5151 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-02-04 18:29:12 +00:00
parent 87956407e2
commit 38972e60e3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
perl-xCAT/xCAT/Utils.pm
View File

@ -21,7 +21,7 @@ require xCAT::Table;
use POSIX qw(ceil);
use Socket;
use strict;
#use warnings "all";
use warnings "all";
require xCAT::InstUtils;
require xCAT::Schema;
require Data::Dumper;
@ -2135,15 +2135,15 @@ For an example
=cut
#-----------------------------------------------------------------------
%::PING_CACHE;
my %PING_CACHE;
sub isPingable
{
my $ip = shift;
my $rc;
if ( exists $::PING_CACHE{ $ip})
if ( exists $PING_CACHE{ $ip})
{
$rc = $::PING_CACHE{ $ip};
$rc = $PING_CACHE{ $ip};
}
else
{
@ -2156,7 +2156,7 @@ sub isPingable
{
$rc = 0;
}
$::PING_CACHE{ $ip} = $rc;
$PING_CACHE{ $ip} = $rc;
}
return ! $rc;