/[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 835 by ph10, Wed Dec 28 16:10:09 2011 UTC revision 836 by ph10, Wed Dec 28 17:16:11 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.835  
changed lines
  Added in v.836

webmaster@exim.org
ViewVC Help
Powered by ViewVC 1.1.12