ipv6 fix, replace the Socket library calls with NetworkUtils subroutines
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6037 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
f8b7e79dc5
commit
badd067c44
@ -11,6 +11,7 @@ use xCAT::PPCdb;
|
||||
use xCAT::PPCscan;
|
||||
use xCAT::GlobalDef;
|
||||
use xCAT::Usage;
|
||||
use xCAT::NetworkUtils;
|
||||
use Data::Dumper;
|
||||
|
||||
##############################################
|
||||
@ -49,7 +50,7 @@ sub getshorthost {
|
||||
|
||||
my $ip = shift;
|
||||
|
||||
my $host = gethostbyaddr( inet_aton($ip), AF_INET );
|
||||
my $host = xCAT::NetworkUtils->gethostname($ip);
|
||||
if ( $host and !$! ) {
|
||||
##############################
|
||||
# Get short-hostname
|
||||
|
Loading…
Reference in New Issue
Block a user