From 37af479ddeb125d701a31c4f4f3ed75909a5899b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 14 Sep 2001 23:27:24 +0000
Subject: when testing for bad drives, if opening for writing fails, remove the
 drive from the hard drive list (useful for Smartmedia readers)

---
 perl-install/install_any.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index fbea1410b..a82ebe5b9 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -948,7 +948,9 @@ sub getHds {
 	$o->setupSCSI; #- ask for an unautodetected scsi card
 	goto getHds;
     }
-    $::testing or partition_table_raw::test_for_bad_drives($_) foreach @$hds;
+    if (!$::testing) {
+	@$hds = grep { partition_table_raw::test_for_bad_drives($_) } @$hds;
+    }
 
     $ok = fsedit::verifyHds($hds, $flags->{readonly}, $ok)
         if !($flags->{clearall} || $flags->{clear});
-- 
cgit v1.2.1