From 00723acc13494a6752772d017908b23719a5243d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 29 Jan 2003 01:12:03 +0000 Subject: handle mdX where X >= 10 (it should fix bug #1129) --- perl-install/fsedit.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index d89c3a064..ae8ce61f1 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -106,7 +106,7 @@ sub raids { my ($nb, $level, $mdparts) = #- line format is: #- md%d : {in}?active{ (read-only)}? {linear|raid1|raid4|raid5}{ DEVNAME[%d]{(F)}?}* - $mdstat[$i] =~ /^md(.).* ([^ \[\]]+) (\S+\[\d+\].*)/ or next; + $mdstat[$i] =~ /^md(\d+).* ([^ \[\]]+) (\S+\[\d+\].*)/ or next; $level =~ s/raid//; #- { linear | raid0 | raid1 | raid5 } -> { linear | 0 | 1 | 5 } -- cgit v1.2.1