[TWiki-Dev] CVS: twiki/lib TWiki.pm,1.164,1.165

[Richard D. <rd...@us...>]

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

Modified Files:
	TWiki.pm 
Log Message:
Performance tweak for mailnotify.


Index: TWiki.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki.pm,v
retrieving revision 1.164
retrieving revision 1.165
diff -C2 -r1.164 -r1.165
*** TWiki.pm	10 Nov 2002 11:52:13 -0000	1.164
--- TWiki.pm	10 Nov 2002 17:35:36 -0000	1.165
***************
*** 459,463 ****
              # full form:   * Main.WikiName - email@domain
  	    # (the 'Main.' part is optional, non-capturing)
!             if ( !/^\s\*\s(?:$mainWebPattern\.)?TWikiGuest\s/ ) {
  		# Add email address to list if it's not a duplicate
                  if ( /([\w\-\.\+]+\@[\w\-\.\+]+)/ ) {
--- 459,463 ----
              # full form:   * Main.WikiName - email@domain
  	    # (the 'Main.' part is optional, non-capturing)
!             if ( !/^\s\*\s(?:$mainWebPattern\.)?TWikiGuest\s/o ) {
  		# Add email address to list if it's not a duplicate
                  if ( /([\w\-\.\+]+\@[\w\-\.\+]+)/ ) {
***************
*** 465,469 ****
  		}
              }
!         } elsif (/^\s\*\s(?:$mainWebPattern\.)?([A-Z][A-Za-z0-9]+)/ ) {   
  	    # short form:   * Main.WikiName
  	    # (the 'Main.' part is optional, non-capturing)
--- 465,469 ----
  		}
              }
!         } elsif (/^\s\*\s(?:$mainWebPattern\.)?([A-Z][A-Za-z0-9]+)/o ) {   
  	    # short form:   * Main.WikiName
  	    # (the 'Main.' part is optional, non-capturing)
***************
*** 914,918 ****
      $htext =~ s/(.{162})([a-zA-Z0-9]*)(.*?)$/$1$2 \.\.\./go;
  
!     # encode special chars to be iso-8859-1 conform
      $htext =~ s/([\x7f-\xff])/"\&\#" . unpack( "C", $1 ) .";"/geo;
  
--- 914,918 ----
      $htext =~ s/(.{162})([a-zA-Z0-9]*)(.*?)$/$1$2 \.\.\./go;
  
!     # encode special chars to be iso-8859-1 conformant
      $htext =~ s/([\x7f-\xff])/"\&\#" . unpack( "C", $1 ) .";"/geo;