/[pcre]/code/trunk/perltest.pl
ViewVC logotype

Diff of /code/trunk/perltest.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 611 by ph10, Tue May 18 15:47:01 2010 UTC revision 612 by ph10, Sat Jul 2 15:20:59 2011 UTC
# Line 103  for (;;) Line 103  for (;;)
103    
104    $pattern =~ s/W(?=[a-zA-Z]*$)//;    $pattern =~ s/W(?=[a-zA-Z]*$)//;
105    
106      # Remove /S or /SS from a pattern (asks pcretest to study or not to study)
107    
108      $pattern =~ s/S(?=[a-zA-Z]*$)//g;
109    
110    # Check that the pattern is valid    # Check that the pattern is valid
111    
112    eval "\$_ =~ ${pattern}";    eval "\$_ =~ ${pattern}";

Legend:
Removed from v.611  
changed lines
  Added in v.612

webmaster@exim.org
ViewVC Help
Powered by ViewVC 1.1.12