From acbcf359e5e63583f01c06ecbc4346664c443aa0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Dec 1999 23:13:43 +0000
Subject: no_comment

---
 perl-install/ftp.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/ftp.pm')

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index bfabc5abf..bef562dad 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -27,8 +27,8 @@ sub fromEnv() {
 
 sub new {
     my ($host, $prefix, $login, $password) = @_;
-    my @l = do { if ($hosts{$host}) {
-	@{$hosts{$host}};
+    my @l = do { if ($hosts{"$host$prefix"}) {
+	@{$hosts{"$host$prefix"}};
     } else {
 	my %options = (Passive => 1);
 	$options{Firewall} = $ENV{PROXY} if $ENV{PROXY};
@@ -44,7 +44,7 @@ sub new {
 	$ftp->cwd($prefix);
 
 	my @l = ($ftp, \ (my $retr = undef));
-	$hosts{$host} = \@l;
+	$hosts{"$host$prefix"} = \@l;
 	@l;
     }};
     wantarray ? @l : $l[0];
-- 
cgit v1.2.1