From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 22 Sep 2008 19:39:56 +0000 (+0000)
Subject: bad line-kill detection fixed
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=c57579973c091d2c5437f152baa003ed0cc0c85a

bad line-kill detection fixed
---

diff --git a/yaz-cleanup b/yaz-cleanup
index 2214564..d44e4cf 100755
--- a/yaz-cleanup
+++ b/yaz-cleanup
@@ -99,7 +99,7 @@ sub edit {
             my $term = $commands{$line}->($line_in);
             last if $term;
         } else {
-            if ($context[3] eq " [LINE KILLED\n]") {
+            if ($context[3] eq " [LINE KILLED]\n") {
                 push @record, "$line\n"
             } else {
                 $record[-1] = "$line\n";