update p5-XML-LibXML to 2.0213

This commit is contained in:
bluhm
2026-05-27 22:29:51 +00:00
parent f92f8dc9ec
commit f7c2f730e3
12 changed files with 10 additions and 219 deletions
+3 -3
View File
@@ -1,8 +1,8 @@
COMMENT = perl binding for libxml2
DISTNAME = XML-LibXML-2.0210
DISTNAME = XML-LibXML-2.0213
EPOCH = 0
REVISION = 2
CPAN_AUTHOR = TODDR
CATEGORIES = textproc
@@ -11,7 +11,7 @@ MAINTAINER = Alexander Bluhm <bluhm@openbsd.org>
# Perl
PERMIT_PACKAGE = Yes
WANTLIB += c perl xml2
WANTLIB = c perl xml2
MODULES = cpan
RUN_DEPENDS = textproc/p5-XML-NamespaceSupport \
+2 -2
View File
@@ -1,2 +1,2 @@
SHA256 (XML-LibXML-2.0210.tar.gz) = opvz8Aq5ye4EIYFU4K/I95m/I2dOuZwantTeH0BZpI0=
SIZE (XML-LibXML-2.0210.tar.gz) = 466316
SHA256 (XML-LibXML-2.0213.tar.gz) = KvIcXWGsNOompfq/FbpaWEHmSPcYnbPjO28otUiYAqs=
SIZE (XML-LibXML-2.0213.tar.gz) = 562825
@@ -22,7 +22,7 @@ Index: Makefile.PL
"Config" => 0,
"ExtUtils::MakeMaker" => 0,
);
@@ -68,15 +65,13 @@ my %prereqs = (
@@ -67,15 +64,13 @@ my %prereqs = (
"warnings" => 0,
);
@@ -40,5 +40,5 @@ Index: Makefile.PL
- $xsbuild{$k} = (defined($base_val) ? ($base_val . ' ' . $v) : $v);
-}
my %WriteMakefileArgs = (
"NAME" => "XML::LibXML",
# Strip bogus -L/lib entries that Alien::Base::Wrapper sometimes injects
# (the directory does not exist on macOS and the linker warns about it).
@@ -1,54 +0,0 @@
https://github.com/shlomif/perl-XML-LibXML/commit/bee8338fd1cbd7aad4bf60c2965833343b6ead6f
https://github.com/shlomif/perl-XML-LibXML/commit/ecbebc2f33fecb66b3d5487c6e48bea353e374f9
Index: t/02parse.t
--- t/02parse.t.orig
+++ t/02parse.t
@@ -14,7 +14,7 @@ use locale;
POSIX::setlocale(LC_ALL, "C");
-use Test::More tests => 533;
+use Test::More tests => 531;
use IO::File;
use XML::LibXML::Common qw(:libxml);
@@ -25,7 +25,7 @@ use constant XML_DECL => "<?xml version=\"1.0\"?>\n";
use Errno qw(ENOENT);
-# TEST*533
+# TEST*531
##
# test values
@@ -773,15 +773,6 @@ EOXML
my $newkid = $root->appendChild( $doc->createElement( "bar" ) );
is( $newkid->line_number(), 0, "line number is 0");
-
- $parser->line_numbers(0);
- eval { $doc = $parser->parse_string( $goodxml ); };
-
- $root = $doc->documentElement();
- is( $root->line_number(), 0, "line number is 0");
-
- @kids = $root->childNodes();
- is( $kids[1]->line_number(), 0, "line number is 0");
}
SKIP: {
@@ -884,7 +875,12 @@ EOXML
eval {
$doc2 = $parser->parse_string( $xmldoc );
};
- isnt($@, '', "error parsing $xmldoc");
+ # https://gitlab.gnome.org/GNOME/libxml2/-/commit/b717abdd
+ if (XML::LibXML::LIBXML_RUNTIME_VERSION() < 21300) {
+ isnt($@, '', "error parsing $xmldoc");
+ } else {
+ is( $doc2->documentElement()->firstChild()->nodeName(), "foo" );
+ }
$parser->validation(1);
@@ -1,20 +0,0 @@
https://github.com/shlomif/perl-XML-LibXML/commit/bee8338fd1cbd7aad4bf60c2965833343b6ead6f
Index: t/08findnodes.t
--- t/08findnodes.t.orig
+++ t/08findnodes.t
@@ -123,7 +123,13 @@ my $docstring = q{
my @ns = $root->findnodes('namespace::*');
# TEST
-is(scalar(@ns), 2, ' TODO : Add test name' );
+# https://gitlab.gnome.org/GNOME/libxml2/-/commit/aca16fb3
+# fixed xmlCopyNamespace with XML namespace.
+if (XML::LibXML::LIBXML_RUNTIME_VERSION() < 21300) {
+ is(scalar(@ns), 2, ' TODO : Add test name' );
+} else {
+ is(scalar(@ns), 3, ' TODO : Add test name' );
+}
# bad xpaths
# TEST:$badxpath=4;
@@ -1,19 +0,0 @@
https://github.com/shlomif/perl-XML-LibXML/commit/c9f9c2fe51173b0a00969f01b577399f1098aa47
Index: t/16docnodes.t
--- t/16docnodes.t.orig
+++ t/16docnodes.t
@@ -60,7 +60,12 @@ for my $time (0 .. 2) {
$doc->setDocumentElement($node);
# TEST
- is( $node->serialize(), '<test contents="&#xE4;"/>', 'Node serialise works.' );
+ # libxml2 2.14 avoids unnecessary escaping of attribute values.
+ if (XML::LibXML::LIBXML_VERSION() >= 21400) {
+ is( $node->serialize(), "<test contents=\"\xE4\"/>", 'Node serialise works.' );
+ } else {
+ is( $node->serialize(), '<test contents="&#xE4;"/>', 'Node serialise works.' );
+ }
$doc->setEncoding('utf-8');
# Second output
@@ -1,14 +0,0 @@
https://github.com/shlomif/perl-XML-LibXML/commit/bee8338fd1cbd7aad4bf60c2965833343b6ead6f
Index: t/19die_on_invalid_utf8_rt_58848.t
--- t/19die_on_invalid_utf8_rt_58848.t.orig
+++ t/19die_on_invalid_utf8_rt_58848.t
@@ -16,7 +16,7 @@ use XML::LibXML;
my $err = $@;
# TEST
- like ("$err", qr{parser error : Input is not proper UTF-8},
+ like ("$err", qr{not proper UTF-8|Invalid bytes in character encoding},
'Parser error.',
);
}
@@ -1,23 +0,0 @@
https://github.com/shlomif/perl-XML-LibXML/commit/bee8338fd1cbd7aad4bf60c2965833343b6ead6f
Index: t/25relaxng.t
--- t/25relaxng.t.orig
+++ t/25relaxng.t
@@ -132,7 +132,7 @@ print "# 6 check that no_network => 1 works\n";
{
my $rng = eval { XML::LibXML::RelaxNG->new( location => $netfile, no_network => 1 ) };
# TEST
- like( $@, qr{I/O error : Attempt to load network entity}, 'RNG from file location with external import and no_network => 1 throws an exception.' );
+ like( $@, qr{Attempt to load network entity}, 'RNG from file location with external import and no_network => 1 throws an exception.' );
# TEST
ok( !defined $rng, 'RNG from file location with external import and no_network => 1 is not loaded.' );
}
@@ -152,7 +152,7 @@ print "# 6 check that no_network => 1 works\n";
</grammar>
EOF
# TEST
- like( $@, qr{I/O error : Attempt to load network entity}, 'RNG from buffer with external import and no_network => 1 throws an exception.' );
+ like( $@, qr{Attempt to load network entity}, 'RNG from buffer with external import and no_network => 1 throws an exception.' );
# TEST
ok( !defined $rng, 'RNG from buffer with external import and no_network => 1 is not loaded.' );
}
@@ -1,23 +0,0 @@
https://github.com/shlomif/perl-XML-LibXML/commit/bee8338fd1cbd7aad4bf60c2965833343b6ead6f
Index: t/26schema.t
--- t/26schema.t.orig
+++ t/26schema.t
@@ -117,7 +117,7 @@ EOF
{
my $schema = eval { XML::LibXML::Schema->new( location => $netfile, no_network => 1 ) };
# TEST
- like( $@, qr{I/O error : Attempt to load network entity}, 'Schema from file location with external import and no_network => 1 throws an exception.' );
+ like( $@, qr{Attempt to load network entity}, 'Schema from file location with external import and no_network => 1 throws an exception.' );
# TEST
ok( !defined $schema, 'Schema from file location with external import and no_network => 1 is not loaded.' );
}
@@ -129,7 +129,7 @@ EOF
</xsd:schema>
EOF
# TEST
- like( $@, qr{I/O error : Attempt to load network entity}, 'Schema from buffer with external import and no_network => 1 throws an exception.' );
+ like( $@, qr{Attempt to load network entity}, 'Schema from buffer with external import and no_network => 1 throws an exception.' );
# TEST
ok( !defined $schema, 'Schema from buffer with external import and no_network => 1 is not loaded.' );
}
@@ -1,20 +0,0 @@
https://github.com/shlomif/perl-XML-LibXML/commit/c9f9c2fe51173b0a00969f01b577399f1098aa47
Index: t/49_load_html.t
--- t/49_load_html.t.orig
+++ t/49_load_html.t
@@ -52,7 +52,13 @@ use XML::LibXML;
</div>
EOS
- {
+ SKIP: {
+ # libxml2 2.14 tokenizes HTML according to HTML5 where
+ # this isn't an error, see "13.2.5.73 Named character
+ # reference state".
+ skip("libxml2 version >= 21400", 1)
+ if XML::LibXML::LIBXML_VERSION >= 21400;
+
my $buf = '';
open my $fh, '>', \$buf;
# redirect STDERR there
@@ -1,38 +0,0 @@
https://github.com/shlomif/perl-XML-LibXML/commit/bee8338fd1cbd7aad4bf60c2965833343b6ead6f
Index: t/60error_prev_chain.t
--- t/60error_prev_chain.t.orig
+++ t/60error_prev_chain.t
@@ -16,13 +16,11 @@ use XML::LibXML;
{
my $parser = XML::LibXML->new();
- $parser->validation(0);
- $parser->load_ext_dtd(0);
eval
{
local $^W = 0;
- $parser->parse_file('example/JBR-ALLENtrees.htm');
+ $parser->parse_string('<doc>&ldquo;&nbsp;&rdquo;</doc>');
};
my $err = $@;
@@ -31,7 +29,7 @@ use XML::LibXML;
if( $err && !ref($err) ) {
plan skip_all => 'The local libxml library does not support errors as objects to $@';
}
- plan tests => 1;
+ plan tests => 2;
while (defined($err) && $count < 200)
{
@@ -44,6 +42,8 @@ use XML::LibXML;
# TEST
ok ((!$err), "Reached the end of the chain.");
+ # TEST
+ is ($count, 3, "Correct number of errors reported")
}
=head1 COPYRIGHT & LICENSE
+2
View File
@@ -24,6 +24,7 @@ ${P5ARCH}/XML/LibXML/Error.pm
${P5ARCH}/XML/LibXML/Error.pod
${P5ARCH}/XML/LibXML/InputCallback.pod
${P5ARCH}/XML/LibXML/Literal.pm
${P5ARCH}/XML/LibXML/NamedNodeMap.pod
${P5ARCH}/XML/LibXML/Namespace.pod
${P5ARCH}/XML/LibXML/Node.pod
${P5ARCH}/XML/LibXML/NodeList.pm
@@ -68,6 +69,7 @@ ${P5ARCH}/auto/XML/LibXML/
@man man/man3p/XML::LibXML::Error.3p
@man man/man3p/XML::LibXML::InputCallback.3p
@man man/man3p/XML::LibXML::Literal.3p
@man man/man3p/XML::LibXML::NamedNodeMap.3p
@man man/man3p/XML::LibXML::Namespace.3p
@man man/man3p/XML::LibXML::Node.3p
@man man/man3p/XML::LibXML::NodeList.3p