From 94e6b71b4e35d852110537a6dcf00fc1ea3f3546 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 19 Feb 2016 12:51:21 +0000 Subject: [PATCH] Bug 14507 [QA Followup] - Restore comment, tidy sub Signed-off-by: Kyle M Hall Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com (cherry picked from commit f56ad87648ddef5cba66a4cbae9efb53a221c09a) Signed-off-by: Julian Maurice --- C4/SIP/ILS/Patron.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/C4/SIP/ILS/Patron.pm b/C4/SIP/ILS/Patron.pm index fe21903b7b..33653b933e 100644 --- a/C4/SIP/ILS/Patron.pm +++ b/C4/SIP/ILS/Patron.pm @@ -192,17 +192,17 @@ sub AUTOLOAD { } sub check_password { - my ($self, $pwd) = @_; + my ( $self, $pwd ) = @_; - defined $pwd or return 0; # you gotta give me something (at least ''), or no deal + defined $pwd + or return 0; # you gotta give me something (at least ''), or no deal - if ($pwd eq q{}) { - return 1; - } + return 1 + if $pwd eq q{}; # if the record has a NULL password, accept '' as match my $dbh = C4::Context->dbh; my $ret = 0; - ($ret) = checkpw($dbh, $self->{userid}, $pwd); + ($ret) = checkpw( $dbh, $self->{userid}, $pwd ); return $ret; } -- 2.39.5