From 38972e60e37a0ff945f975326ea2ea2bc61ae086 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 4 Feb 2010 18:29:12 +0000
Subject: [PATCH] fix all warnings in routines add use warnings

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

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index fbb69e2fc..6df475b9a 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -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;