From 75aba4dcdd3e0a86cdb65382da385a8f9520d49a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 6 Sep 2004 10:43:28 +0000 Subject: safer --- perl-install/raid.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/raid.pm b/perl-install/raid.pm index 8b0750ed7..d618a2275 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -193,9 +193,10 @@ sub get_existing { } else { fs::type::set_fs_type($md_part, 'ext3'); } - fs::type::set_isFormatted($md_part, to_bool($type->{fs_type})); + my $fs_type = $type && $type->{fs_type}; + fs::type::set_isFormatted($md_part, to_bool($fs_type)); - log::l("RAID: found $md (raid $md_part->{level}) type $type->{fs_type} with parts $raw_part->{devices}"); + log::l("RAID: found $md (raid $md_part->{level}) type $fs_type with parts $raw_part->{devices}"); } $raids; } -- cgit v1.2.1