From 40b9e49c8946a858a1848736a025bbd7c832a443 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 6 Sep 2004 08:29:04 +0000 Subject: handle pt_type, not only fs_type --- perl-install/raid.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install/raid.pm') 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}"); -- cgit v1.2.1