diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-14 23:27:24 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-14 23:27:24 +0000 |
| commit | 37af479ddeb125d701a31c4f4f3ed75909a5899b (patch) | |
| tree | d4e2348dedb66f6b364528ce9020379dd402a90a /perl-install/install_any.pm | |
| parent | 0e7c847a2d04982bd8d04c96961a9eee86c01ac6 (diff) | |
| download | drakx-backup-do-not-use-37af479ddeb125d701a31c4f4f3ed75909a5899b.tar drakx-backup-do-not-use-37af479ddeb125d701a31c4f4f3ed75909a5899b.tar.gz drakx-backup-do-not-use-37af479ddeb125d701a31c4f4f3ed75909a5899b.tar.bz2 drakx-backup-do-not-use-37af479ddeb125d701a31c4f4f3ed75909a5899b.tar.xz drakx-backup-do-not-use-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.pm | 4 |
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}); |