/[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 517 by ph10, Tue Mar 30 11:11:52 2010 UTC revision 518 by ph10, Tue May 18 15:47:01 2010 UTC
# Line 99  for (;;) Line 99  for (;;)
99    
100    $pattern =~ s/K(?=[a-zA-Z]*$)//;    $pattern =~ s/K(?=[a-zA-Z]*$)//;
101    
102      # Remove /W from a pattern (asks pcretest to set PCRE_UCP)
103    
104      $pattern =~ s/W(?=[a-zA-Z]*$)//;
105    
106    # Check that the pattern is valid    # Check that the pattern is valid
107    
108    eval "\$_ =~ ${pattern}";    eval "\$_ =~ ${pattern}";

Legend:
Removed from v.517  
changed lines
  Added in v.518

webmaster@exim.org
ViewVC Help
Powered by ViewVC 1.1.12