arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ipv6 fix

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6019 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc 2010-05-07 10:28:30 +00:00
parent f03ec5319e
commit b3897b05cb
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
perl-xCAT/xCAT/Utils.pm
View File

@ -2532,22 +2532,21 @@ sub thishostisnot
{
@ips = split /\n/, `/sbin/ip addr`;
}
my $comp = inet_aton($comparison);
my $comp = xCAT::Utils->getipaddr($comparison);
if ($comp)
{
foreach (@ips)
{
if (/^\s*inet\s+/)
if (/^\s*inet.?\s+/)
{
my @ents = split(/\s+/);
my $ip = $ents[2];
$ip =~ s/\/.*//;
if (inet_aton($ip) eq $comp)
$ip =~ s/\%.*//;
if ($ip eq $comp)
{
return 0;
}
#print Dumper(inet_aton($ip));
}
}
}