Question

After doing the workaround for CantLocateErrorPm , I tried to create a wiki group and got this:

TWiki detected an internal error - please check your TWiki logs and webserver logs for more information.

Can't use an undefined value as an ARRAY reference

warn200701.txt has this:

| 31 Jan 2007 - 14:41 | Can't use an undefined value as an ARRAY reference at /twiki/lib/TWiki.pm line 3582.
 at /twiki/lib/TWiki.pm line 3582
   TWiki::_GROUPS('TWiki=HASH(0x215fa4)', 'TWiki::Attrs=HASH(0x2247c74)', 'TWikiGroups', 'Main') called at /twiki/lib/TWiki.pm line 2383
   TWiki::_expandTagOnTopicRendering('TWiki=HASH(0x215fa4)', 'GROUPS', 'undef', 'TWikiGroups', 'Main') called at /twiki/lib/TWiki.pm line 2302
   TWiki::_processTags('TWiki=HASH(0x215fa4)', '---+ TWiki Groups\x{a}\x{a}These groups can be used to define fine gr...', 'CODE(0x1db6180)', 16, 'TWikiGroups', 'Main') called at /twiki/lib/TWiki.pm line 2228
   TWiki::_expandAllTags('TWiki=HASH(0x215fa4)', 'SCALAR(0x218e208)', 'TWikiGroups', 'Main') called at /twiki/lib/TWiki.pm line 2577
   TWiki::handleCommonTags('TWiki=HASH(0x215fa4)', '---+ TWiki Groups\x{a}\x{a}These groups can be used to define fine gr...', 'Main', 'TWikiGroups') called at /twiki/lib/TWiki/UI/View.pm line 375
   TWiki::UI::View::_prepare('---+ TWiki Groups\x{a}\x{a}These groups can be used to define fine gr...', 'TWiki=HASH(0x215fa4)', 'Main', 'TWikiGroups', 'TWiki::Meta=HASH(0x212c188)', 0) called at /twiki/lib/TWiki/UI/View.pm line 359
   TWiki::UI::View::view('TWiki=HASH(0x215fa4)') called at /twiki/lib/TWiki/UI.pm line 157
   TWiki::UI::__ANON__() called at /twiki/lib/CPAN/lib/Error.pm line 379
   eval {...} called at /twiki/lib/CPAN/lib/Error.pm line 371
   Error::subs::try('CODE(0x215290)', 'HASH(0x2182280)') called at /twiki/lib/TWiki/UI.pm line 197
   TWiki::UI::run('CODE(0x153f014)', 'view', 1) called

Environment

-- MarcioMarchini - 01 Feb 2007

Answer

If you answer a question - or someone answered one of your questions - please remember to edit the page and set the status to answered. The status selector is below the edit box.

This problem persists in 4.1.1:

| 05 Feb 2007 - 15:13 | Can't use an undefined value as an ARRAY reference at c:/twiki/lib/TWiki.pm line 3616.
 at c:/twiki/lib/TWiki.pm line 3616
   TWiki::_GROUPS('TWiki=HASH(0x216d18)', 'TWiki::Attrs=HASH(0x2263b7c)', 'TWikiGroups', 'Main') called at c:/twiki/lib/TWiki.pm line 2395
   TWiki::_expandTagOnTopicRendering('TWiki=HASH(0x216d18)', 'GROUPS', 'undef', 'TWikiGroups', 'Main') called at c:/twiki/lib/TWiki.pm line 2314
   TWiki::_processTags('TWiki=HASH(0x216d18)', '---+ TWiki Groups\x{a}\x{a}These groups can be used to define fine gr...', 'CODE(0x1dbdc50)', 16, 'TWikiGroups', 'Main') called at c:/twiki/lib/TWiki.pm line 2240
   TWiki::_expandAllTags('TWiki=HASH(0x216d18)', 'SCALAR(0x21a2a28)', 'TWikiGroups', 'Main') called at c:/twiki/lib/TWiki.pm line 2589
   TWiki::handleCommonTags('TWiki=HASH(0x216d18)', '---+ TWiki Groups\x{a}\x{a}These groups can be used to define fine gr...', 'Main', 'TWikiGroups') called at c:/twiki/lib/TWiki/UI/View.pm line 375
   TWiki::UI::View::_prepare('---+ TWiki Groups\x{a}\x{a}These groups can be used to define fine gr...', 'TWiki=HASH(0x216d18)', 'Main', 'TWikiGroups', 'TWiki::Meta=HASH(0x215c620)', 0) called at c:/twiki/lib/TWiki/UI/View.pm line 359
   TWiki::UI::View::view('TWiki=HASH(0x216d18)') called at c:/twiki/lib/TWiki/UI.pm line 157
   TWiki::UI::__ANON__() called at c:/twiki/lib/CPAN/lib//Error.pm line 379
   eval {...} called at c:/twiki/lib/CPAN/lib//Error.pm line 371
   Error::subs::try('CODE(0x215fc8)', 'HASH(0x21865fc)') called at c:/twiki/lib/TWiki/UI.pm line 197
   TWiki::UI::run('CODE(0x1542b7c)', 'view', 1) called

-- MarcioMarchini - 05 Feb 2007

Was this raised as a bug report at Bugs:WebHome ?

-- KennethLavrsen - 05 Feb 2007

No, but now it is in there: Bugs:Item3573

-- MarcioMarchini - 06 Feb 2007

Fix: Apply this patch:

--- twiki/branches/Patch04x01/lib/TWiki/Store/RcsFile.pm   2007-02-13 11:42:36 UTC (rev 12854)
+++ twiki/branches/Patch04x01/lib/TWiki/Store/RcsFile.pm   2007-02-13 11:43:06 UTC (rev 12855)
@@ -358,7 +358,7 @@
             TOKEN => $searchString,
             FILES => \@set);
         foreach my $match ( split( /\r?\n/, $matches )) {
-            if( $match =~ m/([^\/]*)\.txt(:(.*))?$/ ) {
+            if( $match =~ m/([^\/\\]*)\.txt(:(.*))?$/ ) {
                 push( @{$seen->{$1}}, $3 );
             }
         }

See HowToApplyPatch

-- PeterThoeny - 13 Feb 2007