diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 6cee53a11..f1b96ca30 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -668,7 +668,7 @@ sub getHds { # add2hash_($o->{partitioning}, { readonly => 1 }) if partition_table_raw::typeOfMBR($drives[0]{device}) eq 'system_commander'; getHds: - $o->{hds} = catch_cdie { fsedit::hds(\@drives, $flags) } + my $hds = catch_cdie { fsedit::hds(\@drives, $flags) } sub { $ok = 0; my $err = $@; $err =~ s/ at (.*?)$//; @@ -676,15 +676,18 @@ sub getHds { !$flags->{readonly} && $f_err and $f_err->($err); }; - if (is_empty_array_ref($o->{hds}) && $o->{autoSCSI}) { + if (is_empty_array_ref($hds) && $o->{autoSCSI}) { $o->setupSCSI; #- ask for an unautodetected scsi card goto getHds; } - $ok = fsedit::verifyHds($o->{hds}, $flags->{readonly}, $ok) + partition_table_raw::test_for_bad_drives($_) foreach @$hds; + + $ok = fsedit::verifyHds($hds, $flags->{readonly}, $ok) unless $flags->{clearall} || $flags->{clear}; - $o->{fstab} = [ fsedit::get_fstab(@{$o->{hds}}) ]; + $o->{hds} = $hds; + $o->{fstab} = [ fsedit::get_fstab(@$hds) ]; fs::check_mounted($o->{fstab}); fs::merge_fstabs($o->{fstab}, $o->{manualFstab}); |