From a82b2e32ac2f198f7176c33ac14383192c5ab37a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 16 Sep 2001 15:22:14 +0000
Subject: (make): ensure it never returns a non-absolute name (it happened with
 make("foo") when cwd=/dev and /dev/foo existed)

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

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 15f470e47..80f749921 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -136,8 +136,8 @@ sub make($) {
     if (m,^(.*/(?:dev|tmp))/(.*),) {
 	$_ = $2;
     } else {
-	-e $file or $file = "/tmp/$_";
-	-e $file or $file = "/dev/$_";
+	$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
 
-- 
cgit v1.2.1