remove //DOC in the right place

1 files changed, 1 insertions, 0 deletions

diff --git a/pr.pl b/pr.pl
index 2e40b85..46905bd 100755
--- a/pr.pl
+++ b/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++){