diff options
Diffstat (limited to 'perl-install')
| -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; |