summaryrefslogtreecommitdiffstats
path: root/perl-install/ftp.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-15 17:31:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-15 17:31:22 +0000
commit71412b3a34bbb1b5056ace130334917bfa6076be (patch)
tree5af9cdef0ea08f9bb81e1026fc1e27be7990bfb3 /perl-install/ftp.pm
parentfec9449e69b0705b7ef85d9617d36e56f66628a4 (diff)
downloaddrakx-71412b3a34bbb1b5056ace130334917bfa6076be.tar
drakx-71412b3a34bbb1b5056ace130334917bfa6076be.tar.gz
drakx-71412b3a34bbb1b5056ace130334917bfa6076be.tar.bz2
drakx-71412b3a34bbb1b5056ace130334917bfa6076be.tar.xz
drakx-71412b3a34bbb1b5056ace130334917bfa6076be.zip
no_comment
Diffstat (limited to 'perl-install/ftp.pm')
-rw-r--r--perl-install/ftp.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index c33a53e55..6e1002840 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -39,8 +39,8 @@ sub new {
$host = join ".", unpack "C4", (gethostbyname $host)[4];
}
- my $ftp = Net::FTP->new($host, %options) or die;
- $ftp->login($ENV{LOGIN}, $ENV{PASSWORD}) or die;
+ my $ftp = Net::FTP->new($host, %options) or die '';
+ $ftp->login($ENV{LOGIN}, $ENV{PASSWORD}) or die '';
$ftp->binary;
$ftp;