From ca25be2ddf65d906422dac8ba9e9aa946fbbb919 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 8 Oct 1999 14:12:33 +0000
Subject: no_comment

---
 perl-install/fsedit.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/fsedit.pm')

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index cdebe6608..6b7de468f 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -367,7 +367,7 @@ sub verifyHds {
     if ($readonly && !$ok) {
 	log::l("using /proc/partitions as diskdrake failed :(");
 	foreach my $hd (@$hds) {
-	    $hd->{primary} = [ grep { $hd->{device} eq $_->{rootDevice} } @parts ];
+	    $hd->{primary} = { normal => [ grep { $hd->{device} eq $_->{rootDevice} } @parts ] };
 	    delete $hd->{extended};
 	}
     }
-- 
cgit v1.2.1