From 31de738c99ce16ee26595d7bf2d6e9500a5a10b1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 5 Aug 2000 14:29:16 +0000
Subject: no_comment

---
 perl-install/fsedit.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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

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;
 }
 
 #-######################################################################################
-- 
cgit v1.2.1