From 4ed996f552cac7fc6e9713355bdd36e303c76b72 Mon Sep 17 00:00:00 2001
From: Russ Cox <rsc@swtch.com>
Date: Sun, 12 Jul 2009 18:56:00 -0700
Subject: [PATCH] strip //DOC comments during printing

---
 runoff1 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/runoff1 b/runoff1
index ba42e8f..44fdcbe 100755
--- 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";