Auth: table_present caching gefixt

return aus dem do { } Block verhindert das memoizing.

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 3f8589df265e5f3b170519ad6ecaf5b5f5ee5950..f4f096a6c1a16bb2d868586ac5d097b725262627 100644 (file)
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -918,7 +918,7 @@ sub _tables_present {
 
     my ($count) = selectrow_query($main::form, $dbh, $query, @tables);
 
-    return scalar @tables == $count;
+    scalar @tables == $count;
   }
 }