bad line-kill detection fixed

diff --git a/yaz-cleanup b/yaz-cleanup
index 2214564..d44e4cf 100755 (executable)
--- 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";