summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm2
1 files changed, 1 insertions, 1 deletions
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};
}
}