summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f1b96ca30..29650cb5b 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -681,7 +681,7 @@ sub getHds {
goto getHds;
}
- partition_table_raw::test_for_bad_drives($_) foreach @$hds;
+ $::testing or partition_table_raw::test_for_bad_drives($_) foreach @$hds;
$ok = fsedit::verifyHds($hds, $flags->{readonly}, $ok)
unless $flags->{clearall} || $flags->{clear};