From e03f94cb575827ae939c90132604ee5af8545b7a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 1999 21:43:23 +0000
Subject: no_comment

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

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

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 9346b687e..ac72bc3ed 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -47,10 +47,10 @@ sub make($) {
 
     -e $file and return $file; # assume nobody takes fun at creating files named as device
 
-    if (/^sd(.)(\d\d)/) {
+    if (/^sd(.)(\d{0,2})/) {
 	$type = c::S_IFBLK();
 	$major = 8;
-	$minor = ord($1) - ord('a') + $2;
+	$minor = ord($1) - ord('a') + ($2 || 0);
     } elsif (/^hd(.)(\d{0,2})/) {
 	$type = c::S_IFBLK();
 	($major, $minor) = 
-- 
cgit v1.2.1