From 93333acf3d07f83805089c1df191a525c14897c3 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 18 Mar 2005 11:16:40 +0000
Subject: Meaningful error messages

---
 perl-install/ftp.pm | 4 ++--
 1 file 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);
 
-- 
cgit v1.2.1