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.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 5df4cb109..cee6f88ff 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -443,11 +443,8 @@ sub verifyHds {
$hd->{primary} = { normal => [ grep { $hd->{device} eq $_->{rootDevice} } @parts ] };
}
}
- my $fstab = [ get_fstab(@$hds) ];
- if (is_empty_array_ref($fstab) && $readonly) {
- die _("You don't have any partitions!");
- }
- ($hds, $fstab, $ok);
+ $readonly && get_fstab(@$hds) == 0 and die _("You don't have any partitions!");
+ $ok;
}
#-######################################################################################