From 343f05fea083799d5b74886b0a06d7c91d586673 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 19 Jan 2004 10:50:14 +0000 Subject: $::testing means testing, not "testing what titi wants to test" --- perl-install/install_steps_interactive.pm | 1 - 1 file changed, 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index db40a2a0e..6468a8b2f 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -1151,7 +1151,6 @@ 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; -- cgit v1.2.1