Apply the patch to fix ->as_xml destroys internal XML::LibXML object. h…

…ttp://d.hatena.ne.jp/tokuhirom/20081110/1226280757
leto · Nov 12, 2008 · b2a1faf · b2a1faf
1 parent 96b0a80
commit b2a1faf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/XML/Atom/Base.pm b/lib/XML/Atom/Base.pm
@@ -343,7 +343,7 @@ sub as_xml {
     my $obj = shift;
     if (LIBXML) {
         my $doc = XML::LibXML::Document->new('1.0', 'utf-8');
-        $doc->setDocumentElement($obj->elem);
+        $doc->setDocumentElement($obj->elem->cloneNode(1));
         return $doc->toString(1);
     } else {
         return '<?xml version="1.0" encoding="utf-8"?>' . "\n" .