From 75aba4dcdd3e0a86cdb65382da385a8f9520d49a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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