Hi,
I uploaded an NMU of your package.
Please see this as help to get the package into a releaseable condition again.
Please find the used diff below.
Cheers,
Andi
diff -u libxml-libxml-perl-1.63/debian/changelog
libxml-libxml-perl-1.63/debian/changelog
--- libxml-libxml-perl-1.63/debian/changelog
+++ libxml-libxml-perl-1.63/debian/changelog
@@ -1,3 +1,10 @@
+libxml-libxml-perl (1.63-1.1) unstable; urgency=medium
+
+ * Non-maintainer upload.
+ * Fix FTBFS of libxml-feed-perl with upstream r664. Closes: #432513
+
+ -- Andreas Barth <[EMAIL PROTECTED]> Tue, 31 Jul 2007 20:24:31 +0000
+
libxml-libxml-perl (1.63-1) unstable; urgency=low
* New upstream release (Closes: #389857).
only in patch2:
unchanged:
--- libxml-libxml-perl-1.63.orig/t/10ns.t
+++ libxml-libxml-perl-1.63/t/10ns.t
@@ -1,6 +1,6 @@
# -*- cperl -*-
use Test;
-BEGIN { plan tests=>122; }
+BEGIN { plan tests=>124; }
use XML::LibXML;
use XML::LibXML::Common qw(:libxml);
@@ -384,3 +384,15 @@
ok ( !defined($child->getAttribute( 'xmlns:other' )) );
ok ( defined($doca->documentElement->getAttribute( 'xmlns:other' )) );
}
+
+print "# 10. xml namespace\n";
+{
+ my $docOne = XML::LibXML->new->parse_string('<foo><inc
xml:id="test"/></foo>');
+ my $docTwo = XML::LibXML->new->parse_string('<bar><urgh
xml:id="foo"/></bar>');
+
+ my $inc = $docOne->getElementById('test');
+ my $rep = $docTwo->getElementById('foo');
+ $inc->parentNode->replaceChild($rep, $inc);
+ ok($inc->getAttributeNS('http://www.w3.org/XML/1998/namespace','id'),'test');
+ ok($inc->isSameNode($docOne->getElementById('test')));
+}
only in patch2:
unchanged:
--- libxml-libxml-perl-1.63.orig/perl-libxml-mm.h
+++ libxml-libxml-perl-1.63/perl-libxml-mm.h
@@ -40,7 +40,7 @@
* for warn!!
*/
#ifdef XS_WARNINGS
-#define xs_warn(string) warn(string)
+#define xs_warn(string) warn("%s",string)
#else
#define xs_warn(string)
#endif
only in patch2:
unchanged:
--- libxml-libxml-perl-1.63.orig/Changes
+++ libxml-libxml-perl-1.63/Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension XML::LibXML
+pre1.64
+ - fix reconcilation of the "xml" namespace [rt.cpan.org #26450]
+
1.63
- added no_network parser flag
- added support for exclusive canonicalization
(http://www.w3.org/TR/xml-exc-c14n/)
only in patch2:
unchanged:
--- libxml-libxml-perl-1.63.orig/dom.c
+++ libxml-libxml-perl-1.63/dom.c
@@ -14,7 +14,7 @@
/* #define warn(string) fprintf(stderr, string) */
#ifdef XS_WARNINGS
-#define xs_warn(string) warn(string)
+#define xs_warn(string) warn("%s",string)
#else
#define xs_warn(string)
#endif
@@ -91,9 +91,20 @@
_domReconcileNsAttr(xmlAttrPtr attr, xmlNsPtr * unused)
{
xmlNodePtr tree = attr->parent;
+ if (tree == NULL)
+ return;
if( attr->ns != NULL )
{
- xmlNsPtr ns = xmlSearchNs( tree->doc, tree->parent,
attr->ns->prefix );
+ xmlNsPtr ns;
+ if ((attr->ns->prefix != NULL) &&
+ (xmlStrEqual(attr->ns->prefix, BAD_CAST "xml"))) {
+ /* prefix 'xml' has no visible declaration */
+ ns = xmlSearchNsByHref(tree->doc, tree,
XML_XML_NAMESPACE);
+ attr->ns = ns;
+ return;
+ } else {
+ ns = xmlSearchNs( tree->doc, tree->parent,
attr->ns->prefix );
+ }
if( ns != NULL && ns->href != NULL && attr->ns->href != NULL &&
xmlStrcmp(ns->href,attr->ns->href) == 0 )
{
@@ -114,7 +125,9 @@
{
/* Replace/Add the namespace declaration on
the element */
attr->ns = xmlCopyNamespace(attr->ns);
- domAddNsDef(tree, attr->ns);
+ if (attr->ns) {
+ domAddNsDef(tree, attr->ns);
+ }
}
}
}
--
http://home.arcor.de/andreas-barth/
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]