summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-06 13:00:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-06 13:00:31 +0000
commitf1fa6dfef7968aa230748b4401a28fadb8fe9e37 (patch)
tree56a00f4fc5d51f7a4449a2a022aa445933966a79
parent91b2fd9443c7a2e7c7da17ccc832b94b41d05ec8 (diff)
downloaddrakx-backup-do-not-use-f1fa6dfef7968aa230748b4401a28fadb8fe9e37.tar
drakx-backup-do-not-use-f1fa6dfef7968aa230748b4401a28fadb8fe9e37.tar.gz
drakx-backup-do-not-use-f1fa6dfef7968aa230748b4401a28fadb8fe9e37.tar.bz2
drakx-backup-do-not-use-f1fa6dfef7968aa230748b4401a28fadb8fe9e37.tar.xz
drakx-backup-do-not-use-f1fa6dfef7968aa230748b4401a28fadb8fe9e37.zip
no_comment
-rw-r--r--perl-install/ftp.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index ffdd25aa3..36b99b560 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -30,7 +30,7 @@ sub new {
my @l = do { if ($hosts{"$host$prefix"}) {
@{$hosts{"$host$prefix"}};
} else {
- my %options = (Passive => 1, Timeout => 60);
+ my %options = (Passive => 1, Timeout => 60, Port => 21);
$options{Firewall} = $ENV{PROXY} if $ENV{PROXY};
$options{Port} = $ENV{PROXYPORT} if $ENV{PROXYPORT};
unless ($login) {