[TWiki-Dev] [SVN] HideyoImazu r30361 - twiki/trunk/core/lib/TWiki

[<de...@de...>]

Author: HideyoImazu
Date: 2017-07-26 06:06:22 +0000 (Wed, 26 Jul 2017)
New Revision: 30361
Trac url: http://develop.twiki.org/trac/changeset/30361

Modified:
   twiki/trunk/core/lib/TWiki/Access.pm
Log:
Item7791: Error in Detailed Items Query - Use of uninitialized value in concatenation

Modified: twiki/trunk/core/lib/TWiki/Access.pm
===================================================================
--- twiki/trunk/core/lib/TWiki/Access.pm	2017-07-26 06:02:54 UTC (rev 30360)
+++ twiki/trunk/core/lib/TWiki/Access.pm	2017-07-26 06:06:22 UTC (rev 30361)
@@ -162,7 +162,7 @@
 
 package TWiki::Access::Helper;
 
-sub MONITOR { 0 }
+sub MONITOR { 0 } # don't forget to change the other MONITOR()
 
 sub new {
     my( $class, $access, $mode, $user, $topic, $web ) = @_;
@@ -299,7 +299,7 @@
 use Assert;
 
 # Enable this for debug. Done as a sub to allow perl to optimise it out.
-sub MONITOR { 0 }
+sub MONITOR { 0 } # don't forget to change the other MONITOR()
 
 =pod
 
@@ -517,9 +517,9 @@
                 $allowText =
                     $this->_expandVariables($allowText, $web, $topic);
             }
-            print STDERR "$web.$topic ALLOWTOPIC$mode = $allowText\n"
-                if MONITOR;
         }
+        print STDERR "$web.$topic ALLOWTOPIC$mode = $allowText\n"
+            if MONITOR;
         if( !$foreignWebAllowDynamic &&
             $users->isInList( $user, $allowText, $topic, $web )
         ) {