diff options
| author | Jun Kuriyama <kuriyama@FreeBSD.org> | 2001-09-18 09:15:41 +0000 |
|---|---|---|
| committer | Jun Kuriyama <kuriyama@FreeBSD.org> | 2001-09-18 09:15:41 +0000 |
| commit | a680e8c1b5d7084e2abc628a6a3496b4667b0f61 (patch) | |
| tree | a65208f9fecf1b49bf891de4836ecfc4761b9da9 /ftp/ftpmirror/files/patch-TCP.pm | |
| parent | Update to 0.12.1. (diff) | |
Add support for Socket6-0.11.
Submitted by: ume
Notes
Notes:
svn path=/head/; revision=47949
Diffstat (limited to '')
| -rw-r--r-- | ftp/ftpmirror/files/patch-TCP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ftp/ftpmirror/files/patch-TCP.pm b/ftp/ftpmirror/files/patch-TCP.pm index 86e5901413ae..35eb097270da 100644 --- a/ftp/ftpmirror/files/patch-TCP.pm +++ b/ftp/ftpmirror/files/patch-TCP.pm @@ -91,7 +91,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); @@ -103,7 +103,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); |