From 51e8d1e73795adf0fa387794c95495073c5a703e Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
Date: Mon, 30 Jul 2012 13:32:35 -0400
Subject: [PATCH] improve marc_cleanup's parsing of MARCXML files

In particular, ones produced by use of MARC::File::XML->as_xml_record(),
which inserts namespace attributes in the record element.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 marc_cleanup |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

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}++;
 
-- 
1.7.2.5