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

Diff of /code/trunk/perltest.pl

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

code/trunk/perltest revision 91 by nigel, Sat Feb 24 21:41:34 2007 UTC code/trunk/perltest.pl revision 461 by ph10, Mon Oct 5 10:59:35 2009 UTC
# Line 1  Line 1 
1  #! /usr/bin/perl  #! /usr/bin/env perl
2    
3  # Program for testing regular expressions with perl to check that PCRE handles  # Program for testing regular expressions with perl to check that PCRE handles
4  # them the same. This is the version that supports /8 for UTF-8 testing. As it  # them the same. This is the version that supports /8 for UTF-8 testing. As it
# 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.91  
changed lines
  Added in v.461

  ViewVC Help
Powered by ViewVC 1.1.5