Fix a warning message and ever so slightly improve performance

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11240 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2011-12-13 19:59:42 +00:00
parent 5c16dde9eb
commit bb0d44e4c6

View File

@ -117,10 +117,9 @@ sub new {
return $self;
}
if ($ip =~ /::ffff:\d+\.\d+\.+\d+\.\d+/) {
if ($ip and $ip =~ /::ffff:\d+\.\d+\.+\d+\.\d+/) {
$ip =~ s/::ffff://;
}
if (not $ip and $bmc_n) {
} elsif (not $ip and $bmc_n) {
$ip = inet_ntoa($bmc_n);
}
$bmc_handlers{$ip}=$self;