diff options
Diffstat (limited to 'cpan/dist/Socket6/ftpmirror-1.96.diff')
| -rw-r--r-- | cpan/dist/Socket6/ftpmirror-1.96.diff | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/dist/Socket6/ftpmirror-1.96.diff b/cpan/dist/Socket6/ftpmirror-1.96.diff index 25ff52c6..c33b903a 100644 --- a/cpan/dist/Socket6/ftpmirror-1.96.diff +++ b/cpan/dist/Socket6/ftpmirror-1.96.diff @@ -199,7 +199,7 @@ diff -u -r1.1.1.1 -r1.12 - splice(@addr, 0, 4); + # check server name and try to parse port number + my @infos = getaddrinfo($host, $port, AF_UNSPEC, SOCK_STREAM); -+ if ($#infos < 0) { ++ if ($#infos < 1) { + carp("$self: getaddrinfo($host, $port) - $?"); + my $e = $?.''; + $self->error($e, &FATAL); @@ -211,7 +211,7 @@ diff -u -r1.1.1.1 -r1.12 # connect (connect returns "Invalid Argument"). So we # create/close a socket in each iteration. - for my $i (@addr) { -+ while ($#infos >= 0) { ++ while ($#infos >= 1) { + my ($family, $socktype, $proto, $peer, $canonname) + = splice(@infos, 0, 5); |