[libcatmandu-mab2-perl] 08/35: get XML as string

Jonas Smedegaard dr at jones.dk
Fri Oct 27 17:54:40 UTC 2017


This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag debian/0.21-1
in repository libcatmandu-mab2-perl.

commit 286f7bf1629feb909cc8435b3a022f525d9e8438
Author: Johann Rolschewski <jorol at cpan.org>
Date:   Sat Jul 8 19:33:09 2017 +0200

    get XML as string
---
 lib/Catmandu/Importer/SRU/Parser/mabxml.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Catmandu/Importer/SRU/Parser/mabxml.pm b/lib/Catmandu/Importer/SRU/Parser/mabxml.pm
index 317422d..3bc6c57 100644
--- a/lib/Catmandu/Importer/SRU/Parser/mabxml.pm
+++ b/lib/Catmandu/Importer/SRU/Parser/mabxml.pm
@@ -9,7 +9,7 @@ use Encode;
 sub parse {
     my ( $self, $record ) = @_;
 
-    my $xml = $record->{recordData};
+    my $xml = $record->{recordData}->toString();
     my $parser = MAB2::Parser::XML->new( $xml ); 
     return $parser->next();
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-mab2-perl.git



More information about the Pkg-perl-cvs-commits mailing list