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 "$now $h Page $page\n";
|
||||||
print "\n\n";
|
print "\n\n";
|
||||||
for($j=$i; $j<@lines && $j<$i +50; $j++){
|
for($j=$i; $j<@lines && $j<$i +50; $j++){
|
||||||
|
$lines[$j] =~ s!//DOC.*!!;
|
||||||
print $lines[$j];
|
print $lines[$j];
|
||||||
}
|
}
|
||||||
for(; $j<$i+50; $j++){
|
for(; $j<$i+50; $j++){
|
||||||
|
|
1
runoff1
1
runoff1
|
@ -19,7 +19,6 @@ $linenum = 0;
|
||||||
foreach (@lines) {
|
foreach (@lines) {
|
||||||
$linenum++;
|
$linenum++;
|
||||||
chomp;
|
chomp;
|
||||||
s!//DOC.*!!;
|
|
||||||
s/\s+$//;
|
s/\s+$//;
|
||||||
if(length() >= 75){
|
if(length() >= 75){
|
||||||
print STDERR "$file:$linenum: line too long\n";
|
print STDERR "$file:$linenum: line too long\n";
|
||||||
|
|
Loading…
Reference in a new issue