summaryrefslogtreecommitdiffstats
path: root/perl-install/ftp.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-05 23:13:43 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-05 23:13:43 +0000
commitacbcf359e5e63583f01c06ecbc4346664c443aa0 (patch)
treec572b519c806b4dbd69e22f2d3133f24f06dfec0 /perl-install/ftp.pm
parent6e75349144478ac58cb29697e31d2339d2d0a971 (diff)
downloaddrakx-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar
drakx-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.gz
drakx-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.bz2
drakx-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.xz
drakx-acbcf359e5e63583f01c06ecbc4346664c443aa0.zip
no_comment
Diffstat (limited to 'perl-install/ftp.pm')
-rw-r--r--perl-install/ftp.pm6
1 files changed, 3 insertions, 3 deletions
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];