lp849447: trival stylistic tweaks

- rename variable avoid double-negative
- avoid 'Variable declared in conditional statement' perlcritic gripe

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
index 4c1323c..d2b2085 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
@@ -287,13 +287,13 @@ sub charge_ok {
     # determine whether patron should be allowed to circulate materials:
     # not barred, doesn't owe too much wrt fines/fees, privileges haven't
     # expired
-    my $no_circ = 't' if
+    my $circ_is_blocked = 
         (($u->barred eq 't') or
          ($u->standing_penalties and @{$u->standing_penalties}) or
          (CORE::time > $expire->epoch));
 
     return
-        !$no_circ and
+        !$circ_is_blocked and
         $u->active eq 't' and
         $u->card->active eq 't';
 }