Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Force use of cURL when IPv6 protocol requested. The Perl NET6 functions do not fail

Browse source 
gracefully or fall back on IPv4 when running on a system that is not connected to IPv6
network.  Result is that ddclient may crash if IPv6 requested on a system that doesn't
have IPv6.
This commit is contained in:
David Kerr 2016-03-18 13:00:44 -04:00
parent d07b52f75a
commit d5e8b32353
1 changed files with 1 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
ddclient
View file

@ -2078,7 +2078,7 @@ sub geturl {
$default_port = 80; $default_port = 80;
} }
if (! opt('curl') ) { if ( (!opt('curl')) and ($ipversion ne '6') ) {
# Access network using perl functions. # Access network using perl functions.
## determine peer and port to use. ## determine peer and port to use.
$peer = $proxy || $server; $peer = $proxy || $server;
@ -2110,16 +2110,6 @@ sub geturl {
if (! opt('exec')) { if (! opt('exec')) {
debug("skipped network connection"); debug("skipped network connection");
verbose("SENDING:", "%s", $request); verbose("SENDING:", "%s", $request);
} elsif ($ipversion eq '6') {
load_ipv6_support;
$sd = IO::Socket::INET6->new(
PeerAddr => $peer,
PeerPort => $port,
Proto => 'tcp',
MultiHomed => 1,
Timeout => opt('timeout'),
);
defined $sd or warning("cannot connect to $peer:$port socket: $@");
} elsif ($use_ssl) { } elsif ($use_ssl) {
load_ssl_support; load_ssl_support;
$sd = IO::Socket::SSL->new( $sd = IO::Socket::SSL->new(