From e28cc9776192f3d4bbc86bd2781106faf6d0b656 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 7 Jan 2000 09:41:23 +0000
Subject: *** empty log message ***

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

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

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index ffc1aeaef..f4bbc0285 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -42,8 +42,11 @@ sub make($) {
     if (m,^(.*/(?:dev|tmp))/(.*),) {
 	$_ = $2;
     } else {
-	$file = "/tmp/$_";
-	-e $file or $file = "/dev/$_";
+	#- 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 and return $file; #- assume nobody takes fun at creating files named as device
 
-- 
cgit v1.2.1