From 6a1a598c8c88e4cfa1187a4e8ee02a494c4f576b Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 19 Oct 2012 10:10:29 -0400 Subject: [PATCH] improve marc_parses() test If the Leader/09 is not 'a' and the record has diacritics, MARC::Record and friends don't complain until you try to emit a MARCXML record. Signed-off-by: Galen Charlton --- sql/base/base.sql | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/sql/base/base.sql b/sql/base/base.sql index b033fe1..f0b5654 100644 --- a/sql/base/base.sql +++ b/sql/base/base.sql @@ -1636,7 +1636,10 @@ MARC::Charset->assume_unicode(1); my $xml = shift; -eval { my $r = MARC::Record->new_from_xml( $xml ); }; +eval { + my $r = MARC::Record->new_from_xml( $xml ); + my $output_xml = $r->as_xml_record(); +}; if ($@) { return 0; } else { -- 1.7.2.5