summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/raid.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 4a113f5de..f2b18d421 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -187,8 +187,11 @@ sub get_existing {
my $md_part = new($raids, device => $md, level => $raw_part->{level}, disks => \@mdparts);
- my $fs_type = fs::type::fs_type_from_magic($md_part);
- fs::type::set_fs_type($md_part, $fs_type || 'ext3');
+ if (my $type = fs::type::type_subpart_from_magic($md_part)) {
+ put_in_hash($md_part, $type);
+ } else {
+ fs::type::set_fs_type($md_part, 'ext3');
+ }
fs::type::set_isFormatted($md_part, to_bool($fs_type));
log::l("RAID: found $md (raid $md_part->{level}) type $fs_type with parts $raw_part->{devices}");