diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-05 23:13:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-05 23:13:43 +0000 |
| commit | acbcf359e5e63583f01c06ecbc4346664c443aa0 (patch) | |
| tree | c572b519c806b4dbd69e22f2d3133f24f06dfec0 /perl-install/ftp.pm | |
| parent | 6e75349144478ac58cb29697e31d2339d2d0a971 (diff) | |
| download | drakx-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.pm | 6 |
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]; |