From c45a6808d50b8f50e72d2e4224111636e91a933d Mon Sep 17 00:00:00 2001
From: linggao <linggao@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 26 Aug 2010 15:46:11 +0000
Subject: [PATCH] minor fix

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

diff --git a/perl-xCAT/xCAT/NetworkUtils.pm b/perl-xCAT/xCAT/NetworkUtils.pm
index c3ac3c90d..bcd34a8cb 100755
--- a/perl-xCAT/xCAT/NetworkUtils.pm
+++ b/perl-xCAT/xCAT/NetworkUtils.pm
@@ -23,6 +23,7 @@ use Socket;
 use strict;
 use warnings "all";
 my $netipmodule = eval {require Net::IP;};
+my $socket6support = eval { require Socket6 };
 
 our @ISA       = qw(Exporter);
 
@@ -110,8 +111,6 @@ sub gethostname()
        }
    }
    
-    my $socket6support = eval { require Socket6 };
-
     if (($iporhost !~ /\d+\.\d+\.\d+\.\d+/) && ($iporhost !~ /:/))
     {
         #why you do so? pass in a hostname and only want a hostname??
@@ -186,7 +185,6 @@ sub getipaddr()
            return undef;
        }
    }
-    my $socket6support = eval { require Socket6 };
 
     if (($iporhost =~ /\d+\.\d+\.\d+\.\d+/) || ($iporhost =~ /:/))
     {