X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=marc_cleanup;fp=marc_cleanup;h=4d7354e6f3c3373d514c5e684cdfcce2c1d3264f;hp=2c3a005df8e9566383aca6d37144077af5cc29f4;hb=51e8d1e73795adf0fa387794c95495073c5a703e;hpb=f88836fd0f097afedf51008e95a388f6b3afba63

diff --git a/marc_cleanup b/marc_cleanup
index 2c3a005..4d7354e 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -316,7 +316,7 @@ sub buildrecord {
     my $istrash = 0;
     my $trash = $c->{trash};
 
-    $l = <MARC> while (defined $l and $l !~ /<record>/);
+    $l = <MARC> while (defined $l and $l !~ /<record/);
     return $l unless defined $l;
     $c->{ricount}++;