[TWiki-Dev] CVS: twiki/lib TWiki.pm,1.332,1.333

[Peter T. <pet...@us...>]

Update of /cvsroot/twiki/twiki/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv695

Modified Files:
	TWiki.pm 
Log Message:
Render.pm fixes to avoid compile errors

Index: TWiki.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki.pm,v
retrieving revision 1.332
retrieving revision 1.333
diff -C2 -r1.332 -r1.333
*** TWiki.pm	26 Apr 2004 22:27:14 -0000	1.332
--- TWiki.pm	27 Apr 2004 04:47:06 -0000	1.333
***************
*** 1615,1619 ****
      my $htext = $theText;
      # Format e-mail to add spam padding (HTML tags removed later)
!     $htext =~ s/([\s\(])(?:mailto\:)*([a-zA-Z0-9\-\_\.\+]+)\@([a-zA-Z0-9\-\_\.]+)\.([a-zA-Z0-9\-\_]+)(?=[\s\.\,\;\:\!\?\)])/$1 . &mailtoLink( $2, $3, $4 )/ge;
      $htext =~ s/<\!\-\-.*?\-\->//gs;  # remove all HTML comments
      $htext =~ s/<\!\-\-.*$//s;        # cut HTML comment
--- 1615,1619 ----
      my $htext = $theText;
      # Format e-mail to add spam padding (HTML tags removed later)
!     $htext =~ s/([\s\(])(?:mailto\:)*([a-zA-Z0-9\-\_\.\+]+)\@([a-zA-Z0-9\-\_\.]+)\.([a-zA-Z0-9\-\_]+)(?=[\s\.\,\;\:\!\?\)])/$1 . &TWiki::Render::mailtoLink( $2, $3, $4 )/ge;
      $htext =~ s/<\!\-\-.*?\-\->//gs;  # remove all HTML comments
      $htext =~ s/<\!\-\-.*$//s;        # cut HTML comment