From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 17 Sep 2008 22:09:41 +0000 (+0000)
Subject: DTRT with $line1 inside empty datafield catch
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=ee6649ce399300f0c00a8d391330bcafe6f44aae

DTRT with $line1 inside empty datafield catch
---

diff --git a/yaz-cleanup b/yaz-cleanup
index 3576735..9942994 100755
--- a/yaz-cleanup
+++ b/yaz-cleanup
@@ -8,7 +8,7 @@ $line1 = <MARC>;
 while ($line2 = <MARC>) {
     if ($line1 =~ m/<datafield tag="..." ind1=" " ind2=" ">/) {
         if ($line2 =~ m|</datafield>|) {
-            $line1 = $line2;
+            $line1 = <MARC>>;
             next;
         }
     }