/[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 770 by ph10, Tue Aug 2 11:00:40 2011 UTC revision 771 by ph10, Tue Nov 29 15:34:12 2011 UTC
# Line 111  for (;;) Line 111  for (;;)
111    
112    $pattern =~ s/S(?=[a-zA-Z]*$)//g;    $pattern =~ s/S(?=[a-zA-Z]*$)//g;
113    
114      # Remove /Y from a pattern (asks pcretest to disable PCRE optimization)
115    
116      $pattern =~ s/Y(?=[a-zA-Z]*$)//;
117    
118    # Check that the pattern is valid    # Check that the pattern is valid
119    
120    eval "\$_ =~ ${pattern}";    eval "\$_ =~ ${pattern}";

Legend:
Removed from v.770  
changed lines
  Added in v.771

  ViewVC Help
Powered by ViewVC 1.1.5