summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-16 22:01:14 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-16 22:01:14 +0000
commit6f8bdd96c2db76d0a6e39510074a2a6df5c95f08 (patch)
tree20735575e07b0a0f4fcc986b70b9a605a6799969 /perl-install/install_steps_interactive.pm
parent7d4cbf8b0197443cd0c0b446c0122d15f2ed9405 (diff)
downloaddrakx-6f8bdd96c2db76d0a6e39510074a2a6df5c95f08.tar
drakx-6f8bdd96c2db76d0a6e39510074a2a6df5c95f08.tar.gz
drakx-6f8bdd96c2db76d0a6e39510074a2a6df5c95f08.tar.bz2
drakx-6f8bdd96c2db76d0a6e39510074a2a6df5c95f08.tar.xz
drakx-6f8bdd96c2db76d0a6e39510074a2a6df5c95f08.zip
do not complain about root password in testing mode
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 4dd3b4743..e399b55c3 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1151,6 +1151,7 @@ sub setRootPassword {
focus_first => 1,
callbacks => {
complete => sub {
+ return 0 if $::testing;
$sup->{password} eq $sup->{password2} or $o->ask_warn('', [ N("The passwords do not match"), N("Please try again") ]), return 1,0;
length $sup->{password} < 2 * $o->{security}
and $o->ask_warn('', N("This password is too short (it must be at least %d characters long)", 2 * $o->{security})), return 1,0;