diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-18 11:16:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-18 11:16:40 +0000 |
| commit | 93333acf3d07f83805089c1df191a525c14897c3 (patch) | |
| tree | 17a8819bb6985260303b009980706a554801fba5 /perl-install/ftp.pm | |
| parent | bc6b54ecac10401a0a8caf8940e148f32e03cf5f (diff) | |
| download | drakx-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.pm | 4 |
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); |