strip //DOC comments during printing

4ed996f5 · Russ Cox · d42cbd75 · 4ed996f5
Commit 4ed996f5 authored 15 years ago by Russ Cox
--- a/runoff1
+++ b/runoff1
@@ -19,6 +19,7 @@ $linenum = 0;
 foreach (@lines) {
 	$linenum++;
 	chomp;
+	s!//DOC.*!!;
 	s/\s+$//;
 	if(length() >= 75){
 		print STDERR "$file:$linenum: line too long\n";