summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-09 12:43:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-09 12:43:41 +0000
commit9078938c944292dbab9a48fe4d199c13b9e2f394 (patch)
treec23b081eeaf2969a19c52aa25ca5c1aa6293c36a /perl-install
parenta2a524ba64583e5a434857af405d27e49e91cf89 (diff)
downloaddrakx-9078938c944292dbab9a48fe4d199c13b9e2f394.tar
drakx-9078938c944292dbab9a48fe4d199c13b9e2f394.tar.gz
drakx-9078938c944292dbab9a48fe4d199c13b9e2f394.tar.bz2
drakx-9078938c944292dbab9a48fe4d199c13b9e2f394.tar.xz
drakx-9078938c944292dbab9a48fe4d199c13b9e2f394.zip
(getHds): if testing, don't test_for_bad_drives
Diffstat (limited to 'perl-install')
-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};