From 0544006d789020b1c10f9769bce3bab8aab3e323 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 26 Jan 2011 15:44:42 +0000
Subject: [PATCH] -Fix mistakes in last checkin

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

diff --git a/perl-xCAT/xCAT/NetworkUtils.pm b/perl-xCAT/xCAT/NetworkUtils.pm
index f2ba6313f..124e9ec6b 100755
--- a/perl-xCAT/xCAT/NetworkUtils.pm
+++ b/perl-xCAT/xCAT/NetworkUtils.pm
@@ -224,13 +224,13 @@ sub getipaddr
         if ($socket6support) # the getaddrinfo and getnameinfo supports both IPv4 and IPv6
         {
             my @returns;
-            my $family=AF_UNSPEC;
+            my $reqfamily=AF_UNSPEC;
             if ($extraarguments{OnlyV6}) {
-                $family=AF_INET6;
+                $reqfamily=AF_INET6;
             } elsif ($extraarguments{OnlyV4}) {
-                $family=AF_INET;
+                $reqfamily=AF_INET;
             }
-            my @addrinfo = Socket6::getaddrinfo($iporhost,0,$family,SOCK_STREAM,6);
+            my @addrinfo = Socket6::getaddrinfo($iporhost,0,$reqfamily,SOCK_STREAM,6);
             my ($family, $socket, $protocol, $ip, $name) = splice(@addrinfo,0,5);
             while ($ip)
             {
@@ -245,7 +245,7 @@ sub getipaddr
                 } else {
                     push @returns,(Socket6::getnameinfo($ip, Socket6::NI_NUMERICHOST()))[0];
                 }
-                if (scalar @addrinfo and $extraargumests{GetAllAddresses}) {
+                if (scalar @addrinfo and $extraarguments{GetAllAddresses}) {
                     ($family, $socket, $protocol, $ip, $name) = splice(@addrinfo,0,5);
                 } else {
                     $ip=0;