[TWiki-Dev] CVS: twiki/lib TWiki.pm,1.106,1.107

[John T. <ta...@us...>]

Update of /cvsroot/twiki/twiki/lib
In directory usw-pr-cvs1:/tmp/cvs-serv8931/lib

Modified Files:
	TWiki.pm 
Log Message:
Fix for ExtraVerbatimAtEndOfPage


Index: TWiki.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki.pm,v
retrieving revision 1.106
retrieving revision 1.107
diff -C2 -r1.106 -r1.107
*** TWiki.pm	2002/01/12 08:09:07	1.106
--- TWiki.pm	2002/01/13 12:03:19	1.107
***************
*** 1429,1433 ****
          my $val = $verbatim[$i];
          if( $type ne "verbatim" ) {
!             $val =~ s/<(.*)>/&lt;$1&gt;/go;
          }
          $text =~ s|%_VERBATIM$i%|<$type>\n$val</$type>|;
--- 1429,1434 ----
          my $val = $verbatim[$i];
          if( $type ne "verbatim" ) {
!             $val =~ s/</&lt;/go;
!             $val =~ s/</&gt;/go;
          }
          $text =~ s|%_VERBATIM$i%|<$type>\n$val</$type>|;