ipv6 fix, replace the Socket library calls with NetworkUtils subroutines
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6045 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
dcd5e5d318
commit
f318d410bd
@ -9,6 +9,7 @@ BEGIN
|
||||
use lib "$::XCATROOT/lib/perl";
|
||||
require xCAT::Table;
|
||||
require xCAT::Utils;
|
||||
require xCAT::NetworkUtils;
|
||||
use File::Basename;
|
||||
|
||||
use strict;
|
||||
@ -1060,7 +1061,7 @@ sub setupStatemnt {
|
||||
$statemnt =~ m/^(.+):(.+)$/;
|
||||
my $nfsserver = $1;
|
||||
my $nfsdirectory = $2;
|
||||
if($sip eq inet_ntoa(inet_aton($nfsserver))) {
|
||||
if($sip eq xCAT::NetworkUtils->getipaddr($nfsserver)) {
|
||||
unless (-d $nfsdirectory) {
|
||||
if (-e $nfsdirectory) {
|
||||
unlink $nfsdirectory;
|
||||
|
Loading…
x
Reference in New Issue
Block a user