From a384dec9ada016af7631ecb2b29bd972045dc9b2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Sep 2001 12:26:27 +0000
Subject: fix mtab reading and pseudo-device use

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

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

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 96faf3060..15f470e47 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -52,7 +52,7 @@ sub entry {
     my ($type, $major, $minor);
     local ($_) = @_;
 
-    if (/^([\da-f]{3,4})$/i) {
+    if (/^0x([\da-f]{3,4})$/i) {
 	$type = c::S_IFBLK();
 	($major, $minor) = unmakedev(hex $1);
     } elsif (/^sd(.)(\d{0,2})/) {
-- 
cgit v1.2.1