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)