Meaningful error messages

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);