summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-14 23:27:24 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-14 23:27:24 +0000
commit37af479ddeb125d701a31c4f4f3ed75909a5899b (patch)
treed4e2348dedb66f6b364528ce9020379dd402a90a /perl-install/install_any.pm
parent0e7c847a2d04982bd8d04c96961a9eee86c01ac6 (diff)
downloaddrakx-37af479ddeb125d701a31c4f4f3ed75909a5899b.tar
drakx-37af479ddeb125d701a31c4f4f3ed75909a5899b.tar.gz
drakx-37af479ddeb125d701a31c4f4f3ed75909a5899b.tar.bz2
drakx-37af479ddeb125d701a31c4f4f3ed75909a5899b.tar.xz
drakx-37af479ddeb125d701a31c4f4f3ed75909a5899b.zip
when testing for bad drives, if opening for writing fails, remove the drive from the hard drive list (useful for Smartmedia readers)
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 3 insertions, 1 deletions
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});