From d81438e143273a538c09cd16e7f92a83beed4027 Mon Sep 17 00:00:00 2001 From: Slava Shishkin Date: Wed, 13 May 2020 20:20:27 +0300 Subject: [PATCH] Bug 25491: Fix for "Use of uninitialized value" in InstallAuth.pm This warning was thrown: Use of uninitialized value $info{"invalid_username_or_password"} in numeric eq (==) at /home/vagrant/kohaclone/C4/InstallAuth.pm line 387. There is the case when hash key can be undefined in numeric comparison. Fixed by adding additional precheck for $info{"invalid_username_or_password"} being Perl's "true". To test: 1) Go to the first page of the web-installer where it asks to login. 2) Observe the warning in the log file. 3) Apply patch. 4) Repeat step 1. 7) Check that previous warning suppressed. Mentored-by: Andrew Nugged Signed-off-by: Martin Renvoize Signed-off-by: Jonathan Druart --- C4/InstallAuth.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/InstallAuth.pm b/C4/InstallAuth.pm index 987045df50..2c866b22eb 100644 --- a/C4/InstallAuth.pm +++ b/C4/InstallAuth.pm @@ -384,7 +384,7 @@ sub checkauth { $template->param( login => 1 ); $template->param( loginprompt => 1 ) unless $info{'nopermission'}; - if ($info{'invalid_username_or_password'} == 1) { + if ($info{'invalid_username_or_password'} && $info{'invalid_username_or_password'} == 1) { $template->param( 'invalid_username_or_password' => $info{'invalid_username_or_password'}); } -- 2.39.5