diff options
Diffstat (limited to 'perl-install/devices.pm')
| -rw-r--r-- | perl-install/devices.pm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 7932eb21b..8190096d2 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -40,15 +40,13 @@ sub make($) { my ($type, $major, $minor); my $prefix = ''; - if (m,^(.*)/(dev|tmp)/(.*),) { - $prefix = $1; - $_ = $3; - } elsif (m,/,) { - die "can't make device $file"; + if (m,^(.*/(?:dev|tmp))/(.*),) { + $_ = $2; + } else { + $file = "$prefix/dev/$_"; + -e $file or $file = "$prefix/tmp/$_"; } - $file = "$prefix/dev/$_"; - -e $file or $file = "$prefix/tmp/$_"; - -e $file and return $file; # assume nobody takes fun at creating files named as device + -e $file and return $file; # assume nobody takes fun at creating files named as device if (/^sd(.)(\d{0,2})/) { $type = c::S_IFBLK(); |