Parent Directory
| 
Revision Log
| 
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) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |