Auth: table_present caching gefixt

return aus dem do { } Block verhindert das memoizing.

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 3f8589d..f4f096a 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;
   }
 }