/[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 488 by ph10, Mon Jan 11 15:29:42 2010 UTC revision 771 by ph10, Tue Nov 29 15:34:12 2011 UTC
# Line 85  for (;;) Line 85  for (;;)
85    
86    # The private /+ modifier means "print $' afterwards".    # The private /+ modifier means "print $' afterwards".
87    
88    $showrest = ($pattern =~ s/\+(?=[a-z]*$)//);    $showrest = ($pattern =~ s/\+(?=[a-zA-Z]*$)//);
89    
90      # A doubled version is used by pcretest to print remainders after captures
91    
92      $pattern =~ s/\+(?=[a-zA-Z]*$)//;
93    
94    # Remove /8 from a UTF-8 pattern.    # Remove /8 from a UTF-8 pattern.
95    
96    $utf8 = $pattern =~ s/8(?=[a-z]*$)//;    $utf8 = $pattern =~ s/8(?=[a-zA-Z]*$)//;
97    
98    # Remove /J from a pattern with duplicate names.    # Remove /J from a pattern with duplicate names.
99    
100    $pattern =~ s/J(?=[a-z]*$)//;    $pattern =~ s/J(?=[a-zA-Z]*$)//;
101    
102      # Remove /K from a pattern (asks pcretest to check MARK data) */
103    
104      $pattern =~ s/K(?=[a-zA-Z]*$)//;
105    
106      # Remove /W from a pattern (asks pcretest to set PCRE_UCP)
107    
108      $pattern =~ s/W(?=[a-zA-Z]*$)//;
109    
110      # Remove /S or /SS from a pattern (asks pcretest to study or not to study)
111    
112      $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    
# Line 127  for (;;) Line 147  for (;;)
147      chomp;      chomp;
148      printf $outfile "$_\n" if $infile ne "STDIN";      printf $outfile "$_\n" if $infile ne "STDIN";
149    
150      s/\s+$//;      s/\s+$//;  # Remove trailing space
151      s/^\s+//;      s/^\s+//;  # Remove leading space
152        s/\\Y//g;  # Remove \Y (pcretest flag to set PCRE_NO_START_OPTIMIZE)
153    
154      last if ($_ eq "");      last if ($_ eq "");
155      $x = eval "\"$_\"";   # To get escapes processed      $x = eval "\"$_\"";   # To get escapes processed

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

  ViewVC Help
Powered by ViewVC 1.1.5