From 4b2530a25448b4ced0407d2db53403d3a729a6bd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 25 Jun 2004 08:13:46 +0000
Subject: use internal_error() instead of die'ing with no arguments

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f829063c1..8ab92f8fd 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -993,7 +993,7 @@ sub generate_automatic_stage1_params {
     } elsif ($o->{method} eq 'ftp') {
 	@ks = (server => $ENV{HOST}, directory => $ENV{PREFIX}, user => $ENV{LOGIN}, pass => $ENV{PASSWORD});
     } elsif ($o->{method} eq 'nfs') {
-	cat_("/proc/mounts") =~ m|(\S+):(\S+)\s+/tmp/nfsimage| or die;
+	cat_("/proc/mounts") =~ m|(\S+):(\S+)\s+/tmp/nfsimage| or internal_error("can't find nfsimage");
 	@ks = (server => $1, directory => $2);
     }
     @ks = (method => $method, @ks);
-- 
cgit v1.2.1