From 6902c58d1e5aa892c6e894baa4e8568ecde765c0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 14 Aug 2002 10:09:06 +0000
Subject: $all_hds->{hds} must be filled in any case, not only in --hd

---
 perl-install/standalone/diskdrake | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install/standalone/diskdrake')

diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index ae07e8ebe..c2ebcd5f1 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -72,8 +72,7 @@ if ($type eq 'fileshare') {
     $in->exit(0);
 }
 
-my $all_hds = do {
-    if ($type eq 'hd') {
+my $all_hds =
 	catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) }
 	  sub {
 	      my $err = formatError($@);
@@ -86,8 +85,6 @@ I'll try to go on blanking bad partitions"), $err]);
 		  1;
 	      }
 	  };
-    } else { fsedit::empty_all_hds() }
-};
 
 $SIG{__DIE__} = sub { my $m = chomp_($_[0]); log::l("ERROR: $m") };
 my $fstab = [ fsedit::get_all_fstab($all_hds) ];
-- 
cgit v1.2.1