From 8a7d6cc196c0c9f522ff39b7ae030113bd1327a7 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 10 Nov 2009 17:31:39 +0000
Subject: fix handling hdX/sdX devices (#53107)

---
 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 26c7599a0..6168973a8 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -158,7 +158,7 @@ sub entry {
 	} elsif (-e "/sys/block/$_/dev") {
 	    $sysdev = "/sys/block/$_/dev";
 	    $type = c::S_IFBLK();
-        } elsif (/(.+)(\d+)$/ && -e "/sys/block/$1/$2/dev") {
+        } elsif (/^(.+)(\d+)$/ && -e "/sys/block/$1/$_/dev") {
 	    $sysdev = "/sys/block/$_/dev";
 	    $type = c::S_IFBLK();
         }
-- 
cgit v1.2.1