diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/raid.pm | 7 |
2 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 9bf8b16ef..5fb297038 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -2,6 +2,7 @@ window on top of everything (doesn't work on the Ones), use any::set_wm_hints_if_needed instead (#59155) - allow forcing raid metadata version +- load raid metadata version - fix detection of /var partition Version 13.28 - 19 May 2010 diff --git a/perl-install/raid.pm b/perl-install/raid.pm index d9cb6a83d..a70b841fd 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -226,7 +226,12 @@ sub get_existing { } } split(',', $raw_part->{devices}); - my $md_part = new($raids, device => $md, UUID => $raw_part->{UUID}, level => $raw_part->{level}, disks => \@mdparts); + my $md_part = new($raids, + device => $md, + UUID => $raw_part->{UUID}, + level => $raw_part->{level}, + metadata => $raw_part->{metadata}, + disks => \@mdparts); my $type = fs::type::type_subpart_from_magic($md_part); if ($type) { |