[TWiki-Dev] [SVN] HaraldJoerg r30314 - twiki/trunk/PublishContrib/lib/TWiki/Contrib

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

Author: HaraldJoerg
Date: 2017-03-27 21:53:45 +0000 (Mon, 27 Mar 2017)
New Revision: 30314
Trac url: http://develop.twiki.org/trac/changeset/30314

Modified:
   twiki/trunk/PublishContrib/lib/TWiki/Contrib/Publish.pm
Log:
Item7784: PublishContrib -Fix compilation error in Perl >= 5.020

Modified: twiki/trunk/PublishContrib/lib/TWiki/Contrib/Publish.pm
===================================================================
--- twiki/trunk/PublishContrib/lib/TWiki/Contrib/Publish.pm	2017-03-12 18:52:03 UTC (rev 30313)
+++ twiki/trunk/PublishContrib/lib/TWiki/Contrib/Publish.pm	2017-03-27 21:53:45 UTC (rev 30314)
@@ -450,7 +450,7 @@
     my $tmpl = TWiki::Func::readTemplate('view', 'plain');
 
     $tmpl =~ s/%META{.*?}%//g;
-    for my $tag qw( REVTITLE REVARG REVISIONS MAXREV CURRREV ) {
+    for my $tag (qw( REVTITLE REVARG REVISIONS MAXREV CURRREV )) {
         $tmpl =~ s/%$tag%//g;
     }
     my ($header, $footer) = split(/%TEXT%/, $tmpl);