remove //DOC in the right place
This commit is contained in:
parent
4ed996f552
commit
fd8e368101
2 changed files with 1 additions and 1 deletions
1
pr.pl
1
pr.pl
|
@ -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++){
|
||||
|
|
1
runoff1
1
runoff1
|
@ -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";
|
||||
|
|
Loading…
Reference in a new issue