From f318d410bdcce174a84da4c674b9ab082071786a Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 10 May 2010 09:18:25 +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@6045 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/SvrUtils.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/perl/xCAT/SvrUtils.pm b/xCAT-server/lib/perl/xCAT/SvrUtils.pm
index cc4d24c5d..f426d6b32 100644
--- a/xCAT-server/lib/perl/xCAT/SvrUtils.pm
+++ b/xCAT-server/lib/perl/xCAT/SvrUtils.pm
@@ -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;