diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-03 19:18:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-03 19:18:12 +0000 |
| commit | f27df54eeedf0be8c6094231e386d8b145b64161 (patch) | |
| tree | 72805205ffcf08f979081d85a3015482b877ddb5 /perl-install/devices.pm | |
| parent | f91b638be5ee12d0897419272cda6cc8759f6365 (diff) | |
| download | drakx-backup-do-not-use-f27df54eeedf0be8c6094231e386d8b145b64161.tar drakx-backup-do-not-use-f27df54eeedf0be8c6094231e386d8b145b64161.tar.gz drakx-backup-do-not-use-f27df54eeedf0be8c6094231e386d8b145b64161.tar.bz2 drakx-backup-do-not-use-f27df54eeedf0be8c6094231e386d8b145b64161.tar.xz drakx-backup-do-not-use-f27df54eeedf0be8c6094231e386d8b145b64161.zip | |
(make): better caller in error
Diffstat (limited to 'perl-install/devices.pm')
| -rw-r--r-- | perl-install/devices.pm | 3 |
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; |