typo

[migration-tools.git] / yaz-cleanup

diff --git a/yaz-cleanup b/yaz-cleanup
index 9942994..a6ebf60 100755 (executable)
--- 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 = <MARC>>;
+            $line1 = <MARC>;
             next;
         }
     }