From 379094b60b152f3c48e936f21af02803f4f344e7 Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 12 May 2010 05:36:35 +0000
Subject: [PATCH] ipv6 fix, replace the Socket library calls with NetworkUtils
 subroutines

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

diff --git a/perl-xCAT/xCAT/PPCscan.pm b/perl-xCAT/xCAT/PPCscan.pm
index 73eed353d..6756a47d0 100644
--- a/perl-xCAT/xCAT/PPCscan.pm
+++ b/perl-xCAT/xCAT/PPCscan.pm
@@ -10,6 +10,7 @@ use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
 use xCAT::PPCdb;
 use xCAT::GlobalDef;
 use xCAT::Usage;
+use xCAT::NetworkUtils;
 
 
 ##############################################
@@ -107,7 +108,7 @@ sub getshorthost {
 
     my $ip = shift;
 
-    my $host = xCAT::Utils->gethostname($ip);
+    my $host = xCAT::NetworkUtils->gethostname($ip);
     if ( $host and !$! ) {
         ##############################
         # Get short-hostname