From 00197645126e48aa71d8e2d0508bd25d627f8b02 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Nov 2004 13:11:24 +0000
Subject: safer

---
 perl-install/fsedit.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 8155684c3..b790de23d 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -261,7 +261,7 @@ sub read_proc_partitions {
 	    $part->{rootDevice} = $devfs2normal{dirname($part->{dev}) . '/disc'};
 	} else {
 	    $dev = $part->{dev};
-	    if (my $hd = find { $part->{dev} =~ /^$_->{device}./ } @$hds) {
+	    if (my $hd = find { $part->{dev} =~ /^\Q$_->{device}\E./ } @$hds) {
 		put_in_hash($part, partition_table::hd2minimal_part($hd));
 	    }
 	}
-- 
cgit v1.2.1