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

-Fix Client.pm inability to support IPv6 correctly

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8721 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2011-01-20 21:36:52 +00:00
parent 07154d7127
commit 3b9fe409bf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
perl-xCAT/xCAT/Client.pm
View File

@ -19,13 +19,13 @@ my $inet6support;
if ($^O =~ /^aix/i) { # disable AIX IPV6 TODO fix
$inet6support = 0;
} else {
$inet6support=eval { require Socket6 };
$inet6support=eval { require Socket6; 1; };
}
if ($inet6support) {
$inet6support = eval { require IO::Socket::INET6 };
$inet6support = eval { require IO::Socket::INET6; 1; };
}
if ($inet6support) {
$inet6support = eval { require IO::Socket::SSL; IO::Socket::SSL->import('inet6'); };
$inet6support = eval { require IO::Socket::SSL; IO::Socket::SSL->import('inet6'); 1;};
}
unless ($inet6support) {
eval { require Socket };