remove //DOC in the right place
This commit is contained in:
parent
4ed996f552
commit
fd8e368101
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++){
|
||||||
|
|
Loading…
Reference in a new issue