/[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 1403 by ph10, Tue Nov 12 16:03:01 2013 UTC revision 1404 by ph10, Tue Nov 19 15:36:57 2013 UTC
# Line 69  for (;;) Line 69  for (;;)
69    last if ! ($_ = <$infile>);    last if ! ($_ = <$infile>);
70    printf $outfile "$_" if $infile ne "STDIN";    printf $outfile "$_" if $infile ne "STDIN";
71    next if ($_ =~ /^\s*$/ || $_ =~ /^< forbid/);    next if ($_ =~ /^\s*$/ || $_ =~ /^< forbid/);
72    
73    $pattern = $_;    $pattern = $_;
74    
75    while ($pattern !~ /^\s*(.).*\1/s)    while ($pattern !~ /^\s*(.).*\1/s)

Legend:
Removed from v.1403  
changed lines
  Added in v.1404

  ViewVC Help
Powered by ViewVC 1.1.5