diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/raid.pm | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 28be0c22c..6b021dadc 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- diskdrake: + o handle md devices not called md\d+, like md_d127 + Version 12.27 - 14 April 2009 - diskdrake: diff --git a/perl-install/raid.pm b/perl-install/raid.pm index 79476e956..5252511a0 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -165,10 +165,10 @@ sub inactivate_and_dirty { } sub active_mds() { - map { if_(/^(md\d+)\s*:\s*active/, $1) } cat_("/proc/mdstat"); + map { if_(/^(md\S+)\s*:\s*active/, $1) } cat_("/proc/mdstat"); } sub inactive_mds() { - map { if_(/^(md\d+)\s*:\s*inactive/, $1) } cat_("/proc/mdstat"); + map { if_(/^(md\S+)\s*:\s*inactive/, $1) } cat_("/proc/mdstat"); } sub free_mds { |