From 72f5d01babb6f973df9fc3ef0af35704f4d3cd36 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 24 Sep 2008 19:03:48 +0000
Subject: [PATCH] oops, diag print left in

---
 marc-cleanup |    1 -
 1 files changed, 0 insertions(+), 1 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index 0f2b5f8..83e7ee1 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -192,7 +192,6 @@ sub substitute {
         $char = "\\" . $char if ($char =~ /\W/);
         $from = join('', $from, $char);
     }
-    print $OUT "\n$from\n";
     $record[-1] =~ s/$from/$to/;
     $linecontext[3] = $record[-1];
     print_linecontext();
-- 
1.7.2.5