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
This commit is contained in:
ligc 2010-05-12 05:36:35 +00:00
parent ea90affdb1
commit 379094b60b

View File

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