/[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 487 by ph10, Mon Oct 5 10:59:35 2009 UTC revision 488 by ph10, Mon Jan 11 15:29:42 2010 UTC
# Line 133  for (;;) Line 133  for (;;)
133      last if ($_ eq "");      last if ($_ eq "");
134      $x = eval "\"$_\"";   # To get escapes processed      $x = eval "\"$_\"";   # To get escapes processed
135    
136      # Empty array for holding results, then do the matching.      # Empty array for holding results, ensure $REGERROR and $REGMARK are
137        # unset, then do the matching.
138    
139      @subs = ();      @subs = ();
140    
# Line 156  for (;;) Line 157  for (;;)
157           "push \@subs,\$16;" .           "push \@subs,\$16;" .
158           "push \@subs,\$'; }";           "push \@subs,\$'; }";
159    
160        undef $REGERROR;
161        undef $REGMARK;
162    
163      eval "${cmd} (\$x =~ ${pattern}) {" . $pushes;      eval "${cmd} (\$x =~ ${pattern}) {" . $pushes;
164    
165      if ($@)      if ($@)
# Line 165  for (;;) Line 169  for (;;)
169        }        }
170      elsif (scalar(@subs) == 0)      elsif (scalar(@subs) == 0)
171        {        {
172        printf $outfile "No match\n";        printf $outfile "No match";
173          if (defined $REGERROR && $REGERROR != 1)
174            { print $outfile (", mark = $REGERROR"); }
175          printf $outfile "\n";
176        }        }
177      else      else
178        {        {
# Line 186  for (;;) Line 193  for (;;)
193            }            }
194          splice(@subs, 0, 18);          splice(@subs, 0, 18);
195          }          }
196          if (defined $REGMARK && $REGMARK != 1)
197            { print $outfile ("MK: $REGMARK\n"); }
198        }        }
199      }      }
200    }    }
Legend:
Removed from v.487  
changed lines
  Added in v.488
  ViewVC Help
Powered by ViewVC 1.1.5