diff options
Diffstat (limited to 'perl-install/devices.pm')
| -rw-r--r-- | perl-install/devices.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 23e45c43f..5ebb848ba 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -161,10 +161,9 @@ sub entry { sub make($) { local $_ = my $file = $_[0]; - if (m,^(.*/(?:dev|tmp))/(.*),) { + if (m!^(.*/dev)/(.*)!) { $_ = $2; } else { - $file =~ m|^/| && -e $file or $file = "/tmp/$_"; $file =~ m|^/| && -e $file or $file = "/dev/$_"; } -e $file and return $file; #- assume nobody takes fun at creating files named as device |