summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-06-25 08:13:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-06-25 08:13:46 +0000
commit4b2530a25448b4ced0407d2db53403d3a729a6bd (patch)
treeccfdd432896db121a07d98188c5c59fca523f8ba /perl-install
parent5f99e9af89f49db6f8144a5327dfadf84acc25a0 (diff)
downloaddrakx-4b2530a25448b4ced0407d2db53403d3a729a6bd.tar
drakx-4b2530a25448b4ced0407d2db53403d3a729a6bd.tar.gz
drakx-4b2530a25448b4ced0407d2db53403d3a729a6bd.tar.bz2
drakx-4b2530a25448b4ced0407d2db53403d3a729a6bd.tar.xz
drakx-4b2530a25448b4ced0407d2db53403d3a729a6bd.zip
use internal_error() instead of die'ing with no arguments
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm2
1 files changed, 1 insertions, 1 deletions
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);