[TWiki-Dev] [SVN] KennethLavrsen r12580 - twiki/branches/MAIN/twikiplugins/BuildContrib/lib/TWiki/Contrib

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

Author: KennethLavrsen
Date: 2007-01-19 01:54:03 -0600 (Fri, 19 Jan 2007)
New Revision: 12580

Modified:
   twiki/branches/MAIN/twikiplugins/BuildContrib/lib/TWiki/Contrib/Build.pm
Log:
Item3216: Workaround for build contrib so that uploading plugins to t.o.
does not overwrite META:TOPICINFO. A bug in 4.0.2 that t.o is still running
is the real root cause. But intil t.o. gets upgraded this workaround will
enable plugin authors to safely upload plugins using perl build.pl upload
The workaround has been tested also on a TWiki distro build and is confirmed
not to affect this


Modified: twiki/branches/MAIN/twikiplugins/BuildContrib/lib/TWiki/Contrib/Build.pm
===================================================================
--- twiki/branches/MAIN/twikiplugins/BuildContrib/lib/TWiki/Contrib/Build.pm	2007-01-19 07:34:29 UTC (rev 12579)
+++ twiki/branches/MAIN/twikiplugins/BuildContrib/lib/TWiki/Contrib/Build.pm	2007-01-19 07:54:03 UTC (rev 12580)
@@ -1188,6 +1188,9 @@
         print "Basing new topic on ".$this->{basedir}.'/'.$to.'.txt'."\n";
         $newform{'text'} = <IN_FILE>;
         close( IN_FILE );
+        #Hack to avoid revisions to be overwritten on twiki.org. Can be removed when
+        #it is upgraded to 4.1.0. Item3216, Item3454
+        $newform{'text'} =~ s/^%META:TOPICINFO{.*}%$//m;
     } else {
         print STDERR 'Failed to open base topic: '.$!;
         $newform{'text'} = <<END;