/[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 97 by ph10, Mon Mar 5 12:36:47 2007 UTC revision 461 by ph10, Mon Oct 5 10:59:35 2009 UTC
# Line 91  for (;;) Line 91  for (;;)
91    
92    $utf8 = $pattern =~ s/8(?=[a-z]*$)//;    $utf8 = $pattern =~ s/8(?=[a-z]*$)//;
93    
94      # Remove /J from a pattern with duplicate names.
95    
96      $pattern =~ s/J(?=[a-z]*$)//;
97    
98    # Check that the pattern is valid    # Check that the pattern is valid
99    
100    eval "\$_ =~ ${pattern}";    eval "\$_ =~ ${pattern}";

Legend:
Removed from v.97  
changed lines
  Added in v.461

  ViewVC Help
Powered by ViewVC 1.1.5