remove //DOC in the right place

This commit is contained in:
Russ Cox 2009-07-12 19:07:30 -07:00
parent 4ed996f552
commit fd8e368101
2 changed files with 1 additions and 1 deletions

1
pr.pl
View File

@ -20,6 +20,7 @@ for($i=0; $i<@lines; $i+=50){
print "$now $h Page $page\n";
print "\n\n";
for($j=$i; $j<@lines && $j<$i +50; $j++){
$lines[$j] =~ s!//DOC.*!!;
print $lines[$j];
}
for(; $j<$i+50; $j++){

View File

@ -19,7 +19,6 @@ $linenum = 0;
foreach (@lines) {
$linenum++;
chomp;
s!//DOC.*!!;
s/\s+$//;
if(length() >= 75){
print STDERR "$file:$linenum: line too long\n";