summaryrefslogtreecommitdiff
path: root/ftp/ftpmirror/files
diff options
context:
space:
mode:
authorJun Kuriyama <kuriyama@FreeBSD.org>2001-09-18 09:15:41 +0000
committerJun Kuriyama <kuriyama@FreeBSD.org>2001-09-18 09:15:41 +0000
commita680e8c1b5d7084e2abc628a6a3496b4667b0f61 (patch)
treea65208f9fecf1b49bf891de4836ecfc4761b9da9 /ftp/ftpmirror/files
parentUpdate to 0.12.1. (diff)
Add support for Socket6-0.11.
Submitted by: ume
Notes
Notes: svn path=/head/; revision=47949
Diffstat (limited to 'ftp/ftpmirror/files')
-rw-r--r--ftp/ftpmirror/files/patch-TCP.pm4
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);