/[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 1385 by ph10, Tue Oct 29 16:08:15 2013 UTC revision 1388 by ph10, Tue Nov 5 15:24:45 2013 UTC
# Line 68  for (;;) Line 68  for (;;)
68    printf "  re> " if $infile eq "STDIN";    printf "  re> " if $infile eq "STDIN";
69    last if ! ($_ = <$infile>);    last if ! ($_ = <$infile>);
70    printf $outfile "$_" if $infile ne "STDIN";    printf $outfile "$_" if $infile ne "STDIN";
71    next if ($_ eq "");    next if ($_ =~ /^\s*$/ || $_ =~ /^< forbid/);
72    
73    $pattern = $_;    $pattern = $_;
74    
75    while ($pattern !~ /^\s*(.).*\1/s)    while ($pattern !~ /^\s*(.).*\1/s)

Legend:
Removed from v.1385  
changed lines
  Added in v.1388

  ViewVC Help
Powered by ViewVC 1.1.5