From a680e8c1b5d7084e2abc628a6a3496b4667b0f61 Mon Sep 17 00:00:00 2001
From: Jun Kuriyama <kuriyama@FreeBSD.org>
Date: Tue, 18 Sep 2001 09:15:41 +0000
Subject: Add support for Socket6-0.11.

Submitted by:	ume
---
 ftp/ftpmirror/files/patch-TCP.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ftp/ftpmirror/files/patch-TCP.pm')

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);
  
-- 
cgit v1.2.3