@@ -1,5 +1,13 @@
Revision history for Perl extension XML::LibXML
+2.0117 2014-10-26
+ - Makefile.PL : don't require a recentish ExtUtils::MakeMaker.
+ - https://rt.cpan.org/Ticket/Display.html?id=83322
+ - Thanks to Slaven Rezic for the report.
+ - Fix broken t/02parse.t with non-English locale with recent perls.
+ - https://rt.cpan.org/Public/Bug/Display.html?id=97805
+ - Thanks to Slaven Rezic for the report.
+
2.0116 2014-04-12
- t/cpan-changes.t : minimum version of Test::CPAN::Changes.
- This is to avoid test failures such as:
@@ -29,7 +29,7 @@ use XML::LibXML::XPathContext;
use IO::Handle; # for FH reads called as methods
BEGIN {
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
$ABI_VERSION = 2;
require Exporter;
require DynaLoader;
@@ -505,7 +505,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -69,14 +69,18 @@ extern "C" {
#if LIBXML_VERSION >= 20621
#define WITH_SERRORS
+#ifdef LIBXML_READER_ENABLED
#define HAVE_READER_SUPPORT
#include <libxml/xmlreader.h>
#endif
+#endif
#ifdef LIBXML_CATALOG_ENABLED
#include <libxml/catalog.h>
#endif
+#ifdef HAVE_READER_SUPPORT
+
typedef enum {
XML_TEXTREADER_NONE = -1,
XML_TEXTREADER_START= 0,
@@ -95,6 +99,7 @@ typedef enum {
XML_TEXTREADER_VALIDATE_XSD = 4
} xmlTextReaderValidate;
+#endif /* HAVE_READER_SUPPORT */
/* GDOME support
* libgdome installs only the core functions to the system.
@@ -1489,6 +1494,8 @@ LibXML_configure_xpathcontext( xmlXPathContextPtr ctxt ) {
LibXML_configure_namespaces(ctxt);
}
+#ifdef HAVE_READER_SUPPORT
+
static void
LibXML_set_reader_preserve_flag( xmlTextReaderPtr reader ) {
HV *hash;
@@ -1522,6 +1529,8 @@ LibXML_get_reader_preserve_flag( xmlTextReaderPtr reader ) {
return 0;
}
+#endif /* HAVE_READER_SUPPORT */
+
extern void boot_XML__LibXML__Devel(pTHX_ CV*);
MODULE = XML::LibXML PACKAGE = XML::LibXML
@@ -4,7 +4,7 @@
"Petr Pajas"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.94, CPAN::Meta::Converter version 2.140640",
+ "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060",
"keywords" : [
"dom",
"html",
@@ -49,7 +49,6 @@
},
"runtime" : {
"requires" : {
- "ExtUtils::MakeMaker" : "6.56",
"Test::More" : "0",
"XML::NamespaceSupport" : "1.07",
"XML::SAX" : "0.11",
@@ -69,5 +68,5 @@
"url" : "https://bitbucket.org/shlomif/perl-xml-libxml"
}
},
- "version" : "2.0116"
+ "version" : "2.0117"
}
@@ -7,7 +7,7 @@ build_requires:
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.94, CPAN::Meta::Converter version 2.140640'
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060'
keywords:
- dom
- html
@@ -34,7 +34,6 @@ no_index:
- t
- inc
requires:
- ExtUtils::MakeMaker: '6.56'
Test::More: '0'
XML::NamespaceSupport: '1.07'
XML::SAX: '0.11'
@@ -47,4 +46,4 @@ requires:
resources:
homepage: https://bitbucket.org/shlomif/perl-xml-libxml
repository: https://bitbucket.org/shlomif/perl-xml-libxml
-version: '2.0116'
+version: '2.0117'
@@ -43,7 +43,6 @@ my %INFOS = (
),
'PREREQ_PM' => {
'base' => 0,
- 'ExtUtils::MakeMaker' => '6.56',
#'Hash::FieldHash' => '0.09',
'parent' => 0,
'strict' => 0,
@@ -54,32 +53,37 @@ my %INFOS = (
'XML::SAX' => '0.11',
},
'OBJECT' => '$(O_FILES)', # add the DOM extensions to libxml2
- META_MERGE =>
- {
- resources =>
+ ($ExtUtils::MakeMaker::VERSION >= 6.54)
+ ?
+ (
+ META_MERGE =>
{
- repository => 'https://bitbucket.org/shlomif/perl-xml-libxml',
- homepage => 'https://bitbucket.org/shlomif/perl-xml-libxml',
+ resources =>
+ {
+ repository => 'https://bitbucket.org/shlomif/perl-xml-libxml',
+ homepage => 'https://bitbucket.org/shlomif/perl-xml-libxml',
+ },
+ keywords =>
+ [
+ "dom",
+ "html",
+ "libxml",
+ "object oriented",
+ "oop",
+ "parse",
+ "parser",
+ "parsing",
+ "pullparser",
+ "sax",
+ "sgml",
+ "xml",
+ "xpath",
+ "XPath",
+ "xs",
+ ],
},
- keywords =>
- [
- "dom",
- "html",
- "libxml",
- "object oriented",
- "oop",
- "parse",
- "parser",
- "parsing",
- "pullparser",
- "sax",
- "sgml",
- "xml",
- "xpath",
- "XPath",
- "xs",
- ],
- },
+ )
+ : (),
);
# -------------------------------------------------------------------------- #
# -------------------------------------------------------------------------- #
@@ -22,7 +22,7 @@
</authorgroup>
- <edition>2.0116</edition>
+ <edition>2.0117</edition>
<copyright>
<year>2001-2007</year>
<holder>AxKit.com Ltd</holder>
@@ -121,7 +121,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -7,7 +7,7 @@ use Tie::Hash;
our @ISA = qw/Tie::Hash/;
use vars qw($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
BEGIN
{
@@ -16,7 +16,7 @@ use warnings;
use vars qw ($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use overload
'""' => \&value,
@@ -45,7 +45,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -46,7 +46,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -24,7 +24,7 @@ use vars qw( @ISA $VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use XML::LibXML qw(:libxml);
@@ -116,7 +116,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -129,7 +129,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -12,7 +12,7 @@ use warnings;
use XML::LibXML;
use vars qw ($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use 5.008_000;
@@ -683,7 +683,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -27,7 +27,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -89,7 +89,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -382,7 +382,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -14,7 +14,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use constant ERR_OK => 0;
use constant ERR_INTERNAL_ERROR => 1;
@@ -14,7 +14,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -29,7 +29,7 @@ use overload
fallback => 1;
$WARNINGS = 0; # 0: suppress, 1: report via warn, 2: report via die
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use constant XML_ERR_NONE => 0;
use constant XML_ERR_WARNING => 1; # A simple warning
@@ -244,7 +244,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -280,7 +280,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -16,7 +16,7 @@ use strict;
use warnings;
use vars qw ($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use overload
'""' => \&value,
@@ -141,7 +141,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -763,7 +763,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -17,7 +17,7 @@ use XML::LibXML::Literal;
use XML::LibXML::Number;
use vars qw($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use overload
'""' => \&to_literal,
@@ -14,7 +14,7 @@ use strict;
use warnings;
use vars qw ($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use overload
'""' => \&value,
@@ -74,7 +74,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -984,7 +984,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -94,7 +94,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -14,7 +14,7 @@ use strict;
use warnings;
use vars qw ($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use 5.008_000;
@@ -656,7 +656,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -58,7 +58,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -70,7 +70,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -21,7 +21,7 @@ sub CLONE_SKIP {
return $XML::LibXML::__threads_shared ? 0 : 1;
}
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
sub new {
my $class = shift;
@@ -38,7 +38,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -15,7 +15,7 @@ use warnings;
use XML::LibXML;
use vars qw ($VERSION);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
sub CLONE_SKIP {
return $XML::LibXML::__threads_shared ? 0 : 1;
@@ -18,7 +18,7 @@ use XML::LibXML::Common qw(:libxml);
use XML::SAX::Base;
use XML::SAX::DocumentLocator;
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
@ISA = ('XML::SAX::Base');
sub CLONE_SKIP {
@@ -14,7 +14,7 @@ use warnings;
use vars qw($VERSION @ISA);
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
use XML::LibXML;
use XML::SAX::Base;
@@ -47,7 +47,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -66,7 +66,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -170,7 +170,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -17,7 +17,7 @@ use Carp;
use XML::LibXML;
use XML::LibXML::NodeList;
-$VERSION = "2.0116"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "2.0117"; # VERSION TEMPLATE: DO NOT CHANGE
# should LibXML XPath data types be used for simple objects
# when passing parameters to extension functions (default: no)
@@ -359,7 +359,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -52,7 +52,7 @@ Petr Pajas
=head1 VERSION
-2.0116
+2.0117
=head1 COPYRIGHT
@@ -7,6 +7,13 @@
use strict;
use warnings;
+# Fix the locale for the error messages check to work:
+# See https://rt.cpan.org/Public/Bug/Display.html?id=97805 .
+use POSIX qw(locale_h);
+use locale;
+
+POSIX::setlocale(LC_ALL, "C");
+
use Test::More tests => 533;
use IO::File;
@@ -9,8 +9,8 @@ BEGIN{
if (1000*$] < 5008) {
plan skip_all => "Reader interface only supported in Perl >= 5.8";
exit;
- } elsif (XML::LibXML::LIBXML_VERSION() <= 20620) {
- plan skip_all => "Reader not supported for libxml2 <= 2.6.20";
+ } elsif (!XML::LibXML::HAVE_READER()) {
+ plan skip_all => "Reader not supported in this libxml2 build";
exit;
} else {
plan tests => 100;
@@ -6,10 +6,22 @@
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More;
use utf8;
+use XML::LibXML;
+
+BEGIN {
+ if (!XML::LibXML::HAVE_READER()) {
+ plan skip_all => 'Reader not supported in this libxml2 build';
+ exit;
+ }
+ else {
+ plan tests => 2;
+ }
+}
+
package Test::XML::Ordered;
use XML::LibXML::Reader;