From 9292d6063ec83015bcc68344b437266af3ac7051 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Tue, 27 Oct 2015 16:48:16 +0000 Subject: [PATCH] Testing: test.cgi: Break out @verifier_params No functional change. Signed-off-by: Ian Jackson --- test.cgi | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/test.cgi b/test.cgi index 04995c7..9d6a7e2 100755 --- a/test.cgi +++ b/test.cgi @@ -12,7 +12,7 @@ $SIG{__DIE__} = sub { Carp::confess(@_) }; my $dump = "$ENV{'CAHTEST_HOME'}/test-data"; -my $verifier = CGI::Auth::Flexible->new_verifier( +my @verifier_params =( username_password_error => sub { my ($c,$r,$u,$p)=@_; return $p eq 'sesame' ? undef : 'wrong password' @@ -21,7 +21,9 @@ my $verifier = CGI::Auth::Flexible->new_verifier( promise_check_mutate => 1, dir => $dump, srcdump_filter_cwd => 0, -); + ); + +my $verifier = CGI::Auth::Flexible->new_verifier(@verifier_params); END { $verifier->disconnect() if $verifier; } -- 2.30.2