strip //DOC comments during printing

This commit is contained in:
Russ Cox 2009-07-12 18:56:00 -07:00
parent d42cbd75b2
commit 4ed996f552

View file

@ -19,6 +19,7 @@ $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";