summaryrefslogtreecommitdiffstats
path: root/perl-install/devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-27 22:41:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-27 22:41:42 +0000
commit1c0127d9f80cb91dc16a212f7380f3a45381c0df (patch)
tree4d90407e4531605bfd9e290bd259cb2214a95cd4 /perl-install/devices.pm
parent32add8d1612f809a0185db584e0e3e9dd4794c8e (diff)
downloaddrakx-backup-do-not-use-1c0127d9f80cb91dc16a212f7380f3a45381c0df.tar
drakx-backup-do-not-use-1c0127d9f80cb91dc16a212f7380f3a45381c0df.tar.gz
drakx-backup-do-not-use-1c0127d9f80cb91dc16a212f7380f3a45381c0df.tar.bz2
drakx-backup-do-not-use-1c0127d9f80cb91dc16a212f7380f3a45381c0df.tar.xz
drakx-backup-do-not-use-1c0127d9f80cb91dc16a212f7380f3a45381c0df.zip
no_comment
Diffstat (limited to 'perl-install/devices.pm')
-rw-r--r--perl-install/devices.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 6c3a6a6e4..5ebee431e 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -42,11 +42,8 @@ sub make($) {
if (m,^(.*/(?:dev|tmp))/(.*),) {
$_ = $2;
} else {
- #- lnx4win use a plain swap file, should not assume a leading /tmp or /dev.
- unless (-f $file) {
- $file = "/tmp/$_";
- -e $file or $file = "/dev/$_";
- }
+ -e $file or $file = "/tmp/$_";
+ -e $file or $file = "/dev/$_";
}
-e $file and return $file; #- assume nobody takes fun at creating files named as device