From 1c0127d9f80cb91dc16a212f7380f3a45381c0df Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 27 Feb 2000 22:41:42 +0000
Subject: no_comment

---
 perl-install/devices.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'perl-install/devices.pm')

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
 
-- 
cgit v1.2.1