From ae8990d359b83ed84d0350fd6c9e0d6ddef63a37 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 4 Oct 2011 15:57:15 +0000
Subject: [PATCH] Suppress a little noise in debug when using IPv6 networks

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

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index efcbaabe9..184b14191 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -2475,6 +2475,8 @@ sub my_ip_facing
         $peer = shift;
     }
     return my_ip_facing_aix( $peer) if ( $^O eq 'aix');
+    my $peernumber = inet_aton($peer); #TODO: IPv6 support
+    unless ($peernumber) { return undef; }
     my $noden = unpack("N", inet_aton($peer));
     my @nets = split /\n/, `/sbin/ip addr`;
     foreach (@nets)