summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-03 19:18:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-03 19:18:12 +0000
commitf27df54eeedf0be8c6094231e386d8b145b64161 (patch)
tree72805205ffcf08f979081d85a3015482b877ddb5 /perl-install
parentf91b638be5ee12d0897419272cda6cc8759f6365 (diff)
downloaddrakx-f27df54eeedf0be8c6094231e386d8b145b64161.tar
drakx-f27df54eeedf0be8c6094231e386d8b145b64161.tar.gz
drakx-f27df54eeedf0be8c6094231e386d8b145b64161.tar.bz2
drakx-f27df54eeedf0be8c6094231e386d8b145b64161.tar.xz
drakx-f27df54eeedf0be8c6094231e386d8b145b64161.zip
(make): better caller in error
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/devices.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 3ea25bc5e..84d112b5b 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -132,7 +132,8 @@ sub make($) {
}
-e $file and return $file; #- assume nobody takes fun at creating files named as device
- my ($type, $major, $minor) = entry($_);
+ my ($type, $major, $minor) = eval { entry($_) };
+ $@ and die "unknown device $_ (caller is " . join(":", caller()) . ")";
#- make a directory for this inode if needed.
mkdir dirname($file), 0755;