Bug 9165: (Followup) Tidied code slightly

Minor code tidy to clean up qa script warning.

http://bugs.koha-community.org/show_bug.cgi?id=9165
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm
index ba217fa..a929c04 100644 (file)
--- a/C4/Auth_with_ldap.pm
+++ b/C4/Auth_with_ldap.pm
@@ -311,11 +311,12 @@ sub _do_changepassword {
         my $sth = C4::Context->dbh->prepare(
             'SELECT cardnumber FROM borrowers WHERE borrowernumber=?');
         $sth->execute($borrowerid);
-        die
-"Unable to access borrowernumber with userid=$userid, borrowernumber=$borrowerid"
+        die "Unable to access borrowernumber "
+            . "with userid=$userid, "
+            . "borrowernumber=$borrowerid"
           if !$sth->rows;
         my ($cardnum) = $sth->fetchrow;
-        my $sth = C4::Context->dbh->prepare(
+        $sth = C4::Context->dbh->prepare(
             'UPDATE borrowers SET password = null WHERE borrowernumber=?');
         $sth->execute($borrowerid);
         return $cardnum;