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 )
) {
|
