Source

perl-XML-LibXML / perl-libxml-mm.c

Diff from to

perl-libxml-mm.c

         break;
     case XML_ATTRIBUTE_NODE:
         xs_warn("XML_ATTRIBUTE_NODE\n");
-        if ( node->parent == NULL ) 
+        if ( node->parent == NULL ) {
+            xs_warn( "free node\n");
+            node->ns = NULL;
             xmlFreeProp( (xmlAttrPtr) node );
+        }
         break;
     case XML_DTD_NODE:
         if ( node->doc ) {