From f7e4f70d8af80bbf0430c88af19d577a57805d9f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 18 Dec 2008 10:12:59 +0000
Subject: (entry) fix retrieving major/minor for whole discs (regression
 introduced in previous commit (r250534))

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

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

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 515f9c210..40c420306 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -78,7 +78,8 @@ sub entry {
 	$type = c::S_IFBLK();
 	($major, $minor) = unmakedev(hex $1);
     } elsif (/^(sd.)(\d{0,2})/) {
-        ($major, $minor) = split(':', chomp_(cat_("/sys/block/$1/$1$2/dev")));
+        my $path = $2 ? "/sys/block/$1/$1$2/dev" : "/sys/block/$1/dev";
+        ($major, $minor) = split(':', chomp_(cat_($path)));
 	$type = c::S_IFBLK();
     } elsif (/^hd(.)(\d{0,2})/) {
 	$type = c::S_IFBLK();
-- 
cgit v1.2.1