From 534b414276ed53ecd23fbfe78636e0004b2f91d7 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Mon, 14 Dec 2009 10:04:09 +0000
Subject: fix sysfs path

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