I found a really strange bug in wikistore, unfortunately my Perls not up to understanding it.
In method prvGetUsersOfGroup:
Code was:
$topic =~ /^([^\.]*)\.(.*)$/;
if( $2 ) {
$topic = $2;
$web = $1;
}
When topic was
Main.TWikiAdminGroup
web was
TWik
topic was
TWikiAdminGroup
Changed code to:
$topic =~ /^([^\.]*)\.(.*)$/;
if( $2 ) {
$web = $1;
$topic = $2;
}
Solved the problem.
--
JohnTalintyre - 01 Feb 2001
Note that the orginal code worked fine in isolation.
I assmume sometimes, some versions of Perl store bracket results as indexes into original string. If this is is changed, you can get strange results. Will upload to CVS.
--
JohnTalintyre - 11 May 2001
Fixed to CVS for Access.pm module, so in
TWikiAlphaRelease.
--
JohnTalintyre - 12 Jun 2001