summaryrefslogtreecommitdiffstats
path: root/perl-install/ftp.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-18 11:16:40 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-18 11:16:40 +0000
commit93333acf3d07f83805089c1df191a525c14897c3 (patch)
tree17a8819bb6985260303b009980706a554801fba5 /perl-install/ftp.pm
parentbc6b54ecac10401a0a8caf8940e148f32e03cf5f (diff)
downloaddrakx-93333acf3d07f83805089c1df191a525c14897c3.tar
drakx-93333acf3d07f83805089c1df191a525c14897c3.tar.gz
drakx-93333acf3d07f83805089c1df191a525c14897c3.tar.bz2
drakx-93333acf3d07f83805089c1df191a525c14897c3.tar.xz
drakx-93333acf3d07f83805089c1df191a525c14897c3.zip
Meaningful error messages
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 e7af86fb0..f94af31ea 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -31,13 +31,13 @@ sub new {
my $ftp;
foreach (1..10) {
- $ftp = Net::FTP->new(resolv($host), %options) or die;
+ $ftp = Net::FTP->new(resolv($host), %options) or die "Can't resolv hostname '$host'\n";
$ftp && $ftp->login($o_login, $o_password) and last;
log::l("ftp login failed, sleeping before trying again");
sleep 5 * $_;
}
- $ftp or die "unable to open ftp connection to $host";
+ $ftp or die "unable to open ftp connection to $host\n";
$ftp->binary;
$ftp->cwd($prefix);