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

@@ -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)