Hello community,
here is the log from the commit of package perl-XML-LibXML for openSUSE:Factory
checked in at Fri Jul 1 13:55:30 CEST 2011.
--------
--- perl-XML-LibXML/perl-XML-LibXML.changes 2010-12-01 14:57:54.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-XML-LibXML/perl-XML-LibXML.changes 2011-06-16 09:51:16.000000000 +0200
@@ -1,0 +2,27 @@
+Thu Jun 16 07:37:20 UTC 2011 - vcizek@novell.com
+
+- update to 1.71
+ - turn XML_LIBXML_PARSE_DEFAULTS constant to $XML::LibXML::XML_LIBXML_PARSE_DEFAULTS
+ - Apply 0001-XML-LibXML-Error-no-need-to-AUTOLOAD-domain.patch from
+ https://rt.cpan.org/Public/Bug/Display.html?id=68575 - no need to
+ AUTOLOAD 'domain' because a method like that exists.
+ - Apply 0002-XML-LibXML-Error-avoid-AUTOLOAD.patch from
+ https://rt.cpan.org/Public/Bug/Display.html?id=68575 - get rid of
+ AUTOLOAD completely.
+ - Apply 0003-XML-LibXML-Error-make-domain-work-for-unknown-domain.patch
+ from https://rt.cpan.org/Public/Bug/Display.html?id=68575 - handle
+ unknown domains.
+ - Apply 0004-XML-LibXML-Error-add-domains-from-newer-libxml2.patch
+ from https://rt.cpan.org/Public/Bug/Display.html?id=68575 - add more
+ errors.
+ - Apply 0005-XML-LibXML-Error-avoid-malformed-UTF-8-warnings.patch
+ from https://rt.cpan.org/Public/Bug/Display.html?id=68575
+ - In replaceDataString - use
+ http://perldoc.perl.org/functions/quotemeta.html instead of a long (and
+ incomplete) list of characters to escape.
+ -- With test.
+ -- also fix deleteDataString by making it use replaceDataString
+ for help.
+ -- Fixing https://rt.cpan.org/Ticket/Display.html?id=68564
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
XML-LibXML-1.70.tar.bz2
New:
----
XML-LibXML-1.71.tar.bz2
_service:format_spec_file:perl-XML-LibXML.spec
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ _service:format_spec_file:perl-XML-LibXML.spec ++++++
#
# spec file for package perl-XML-LibXML
#
# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
# Please submit bugfixes or comments via http://bugs.opensuse.org/
#
# norootforbuild
Name: perl-XML-LibXML
%define cpan_name %( echo %{name} | %{__sed} -e 's,perl-,,' )
Summary: Perl Binding for libxml2
Version: 1.71
Release: 8
AutoReqProv: on
Group: Development/Libraries/Perl
License: GPL-1.0+ or Artistic
Url: http://search.cpan.org/dist/XML-LibXML/
Source: %{cpan_name}-%{version}.tar.bz2
Patch: %{name}-utf16.diff
BuildRoot: %{_tmppath}/%{name}-%{version}-build
%{perl_requires}
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: libxml2-devel >= 2.6.16
BuildRequires: perl(XML::SAX) >= 0.11
Requires: perl(XML::SAX) >= 0.11
Provides: perl-XML-LibXML-Common = %{version}
Obsoletes: perl-XML-LibXML-Common < %{version}
%description
This module implements a Perl interface to the Gnome libxml2 library which
provides interfaces for parsing and manipulating XML files. This module allows
Perl programmers to make use of the highly capable validating XML parser and
the high performance DOM implementation.
%prep
%setup -q -n %{cpan_name}-%{version}
%patch
%build
# [2,7,1,0], # broken release, broken utf-16
%if 0%{?suse_version} == 1110
%{__perl} Makefile.PL OPTIMIZE="$RPM_OPT_FLAGS -Wall" FORCE=1
%else
%{__perl} Makefile.PL OPTIMIZE="$RPM_OPT_FLAGS -Wall"
%endif
%{__make} %{?_smp_mflags}
%check
%{__make} test
%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist
%clean
%{__rm} -rf $RPM_BUILD_ROOT
%files -f %{name}.files
%defattr(-,root,root)
%doc Changes LICENSE README
%changelog
++++++ perl-XML-LibXML.spec ++++++
--- /var/tmp/diff_new_pack.U701x1/_old 2011-07-01 12:39:33.000000000 +0200
+++ /var/tmp/diff_new_pack.U701x1/_new 2011-07-01 12:39:33.000000000 +0200
@@ -1,7 +1,7 @@
#
-# spec file for package perl-XML-LibXML (Version 1.70)
+# spec file for package perl-XML-LibXML
#
-# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -21,11 +21,11 @@
Name: perl-XML-LibXML
%define cpan_name %( echo %{name} | %{__sed} -e 's,perl-,,' )
Summary: Perl Binding for libxml2
-Version: 1.70
-Release: 8
+Version: 1.71
+Release: 1
AutoReqProv: on
Group: Development/Libraries/Perl
-License: Artistic License ..
+License: GPL-1.0+ or Artistic
Url: http://search.cpan.org/dist/XML-LibXML/
Source: %{cpan_name}-%{version}.tar.bz2
Patch: %{name}-utf16.diff
@@ -45,11 +45,6 @@
Perl programmers to make use of the highly capable validating XML parser and
the high performance DOM implementation.
-Authors:
-
- Matt Sergeant, Christian Glahn, Petr Pajas
-
-
%prep
%setup -q -n %{cpan_name}-%{version}
%patch
++++++ XML-LibXML-1.70.tar.bz2 -> XML-LibXML-1.71.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/Changes new/XML-LibXML-1.71/Changes
--- old/XML-LibXML-1.70/Changes 2009-10-07 14:28:24.000000000 +0200
+++ new/XML-LibXML-1.71/Changes 2011-06-14 18:57:35.000000000 +0200
@@ -1,5 +1,40 @@
Revision history for Perl extension XML::LibXML
+1.71 Tue Jun 14 19:43:50 IDT 2011
+ - turn XML_LIBXML_PARSE_DEFAULTS constant to $XML::LibXML::XML_LIBXML_PARSE_DEFAULTS
+ - Apply 0001-XML-LibXML-Error-no-need-to-AUTOLOAD-domain.patch from
+ https://rt.cpan.org/Public/Bug/Display.html?id=68575 - no need to
+ AUTOLOAD 'domain' because a method like that exists.
+ -- Applied by SHLOMIF.
+ -- Thanks to Aaron Crane.
+ - Apply 0002-XML-LibXML-Error-avoid-AUTOLOAD.patch from
+ https://rt.cpan.org/Public/Bug/Display.html?id=68575 - get rid of
+ AUTOLOAD completely.
+ -- Applied by SHLOMIF.
+ -- Thanks to Aaron Crane.
+ - Apply 0003-XML-LibXML-Error-make-domain-work-for-unknown-domain.patch
+ from https://rt.cpan.org/Public/Bug/Display.html?id=68575 - handle
+ unknown domains.
+ -- Applied by SHLOMIF.
+ -- Thanks to Aaron Crane.
+ - Apply 0004-XML-LibXML-Error-add-domains-from-newer-libxml2.patch
+ from https://rt.cpan.org/Public/Bug/Display.html?id=68575 - add more
+ errors.
+ -- Applied by SHLOMIF.
+ -- Thanks to Aaron Crane.
+ - Apply 0005-XML-LibXML-Error-avoid-malformed-UTF-8-warnings.patch
+ from https://rt.cpan.org/Public/Bug/Display.html?id=68575
+ -- Applied by SHLOMIF.
+ -- Thanks to Aaron Crane.
+ - In replaceDataString - use
+ http://perldoc.perl.org/functions/quotemeta.html instead of a long (and
+ incomplete) list of characters to escape.
+ -- With test.
+ -- also fix deleteDataString by making it use replaceDataString
+ for help.
+ -- Fixing https://rt.cpan.org/Ticket/Display.html?id=68564
+ -- Thanks to Daniel Perrett .
+
1.70
- various fixes and improvements in the documentation
- added (convenient yet non-standard) methods nonBlankChildNodes,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/LibXML.pm new/XML-LibXML-1.71/LibXML.pm
--- old/XML-LibXML-1.70/LibXML.pm 2009-10-04 23:20:32.000000000 +0200
+++ new/XML-LibXML-1.71/LibXML.pm 2011-06-14 18:56:37.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: LibXML.pm 809 2009-10-04 21:17:41Z pajas $
+# $Id$
#
#
# This is free software, you may use it and distribute it under the same terms as
@@ -14,6 +14,7 @@
use vars qw($VERSION $ABI_VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS
$skipDTD $skipXMLDeclaration $setTagCompression
$MatchCB $ReadCB $OpenCB $CloseCB %PARSER_FLAGS
+ $XML_LIBXML_PARSE_DEFAULTS
);
use Carp;
@@ -26,7 +27,7 @@
use IO::Handle; # for FH reads called as methods
BEGIN {
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
$ABI_VERSION = 2;
require Exporter;
require DynaLoader;
@@ -256,7 +257,7 @@
XML_PARSE_OLDSAX => 1048576, # parse using SAX2 interface from before 2.7.0
};
-use constant XML_LIBXML_PARSE_DEFAULTS => ( XML_PARSE_NODICT | XML_PARSE_HUGE | XML_PARSE_DTDLOAD | XML_PARSE_NOENT );
+$XML_LIBXML_PARSE_DEFAULTS = ( XML_PARSE_NODICT | XML_PARSE_HUGE | XML_PARSE_DTDLOAD | XML_PARSE_NOENT );
# this hash is made global so that applications can add names for new
# libxml2 parser flags as temporary workaround
@@ -302,7 +303,7 @@
if (ref($self)) {
$flags = ($self->{XML_LIBXML_PARSER_OPTIONS}||0);
} else {
- $flags = XML_LIBXML_PARSE_DEFAULTS; # safety precaution
+ $flags = $XML_LIBXML_PARSE_DEFAULTS; # safety precaution
}
my ($key, $value);
@@ -374,7 +375,7 @@
$self->{$_}=$opts{$_} unless exists $PARSER_FLAGS{$_};
}
} else {
- $self->{XML_LIBXML_PARSER_OPTIONS} = XML_LIBXML_PARSE_DEFAULTS;
+ $self->{XML_LIBXML_PARSER_OPTIONS} = $XML_LIBXML_PARSE_DEFAULTS;
}
if ( defined $self->{Handler} ) {
$self->set_handler( $self->{Handler} );
@@ -1666,25 +1667,17 @@
sub attributes { return undef; }
sub deleteDataString {
- my $node = shift;
- my $string = shift;
- my $all = shift;
- my $data = $node->nodeValue();
- $string =~ s/([\\\*\+\^\{\}\&\?\[\]\(\)\$\%\@])/\\$1/g;
- if ( $all ) {
- $data =~ s/$string//g;
- }
- else {
- $data =~ s/$string//;
- }
- $node->setData( $data );
+ my ($node, $string, $all) = @_;
+
+ return $node->replaceDataString($string, '', $all);
}
sub replaceDataString {
- my ( $node, $left, $right,$all ) = @_;
+ my ( $node, $left_proto, $right,$all ) = @_;
+
+ # Assure we exchange the strings and not expressions!
+ my $left = quotemeta($left_proto);
- #ashure we exchange the strings and not expressions!
- $left =~ s/([\\\*\+\^\{\}\&\?\[\]\(\)\$\%\@])/\\$1/g;
my $datastr = $node->nodeValue();
if ( $all ) {
$datastr =~ s/$left/$right/g;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/LibXML.pod new/XML-LibXML-1.71/LibXML.pod
--- old/XML-LibXML-1.70/LibXML.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/LibXML.pod 2011-06-14 18:56:41.000000000 +0200
@@ -175,14 +175,17 @@
which must be able to enforce the encoding specified by the C<<<<<< <?xml version="1.0" encoding="..."?> >>>>>> declaration. Here is an example to follow:
use XML::LibXML;
- open my $fh, "file.xml";
+ # load
+ open my $fh, '<', 'file.xml';
binmode $fh; # drop all PerlIO layers possibly created by a use open pragma
$doc = XML::LibXML->load_xml(IO => $fh);
- open my $out, "out.xml";
- binmode $fh; # as above
- $doc->toFh($fh);
+
+ # save
+ open my $out, '>', 'out.xml';
+ binmode $out; # as above
+ $doc->toFh($out);
# or
- print $fh $doc->toString();
+ print {$out} $doc->toString();
@@ -502,7 +505,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/LibXML.xs new/XML-LibXML-1.71/LibXML.xs
--- old/XML-LibXML-1.70/LibXML.xs 2009-10-07 00:02:23.000000000 +0200
+++ new/XML-LibXML-1.71/LibXML.xs 2011-06-09 16:23:09.000000000 +0200
@@ -1,4 +1,4 @@
-/* $Id: LibXML.xs 817 2009-10-06 21:59:32Z pajas $
+/* $Id$
*
* This is free software, you may use it and distribute it under the same terms as
* Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/MANIFEST new/XML-LibXML-1.71/MANIFEST
--- old/XML-LibXML-1.70/MANIFEST 2009-10-07 14:29:25.000000000 +0200
+++ new/XML-LibXML-1.71/MANIFEST 2011-06-14 19:00:15.000000000 +0200
@@ -99,6 +99,7 @@
perl-libxml-sax.h
ppport.h
README
+scripts/bump-version-number.pl
test/relaxng/badschema.rng
test/relaxng/demo.rng
test/relaxng/demo.xml
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/META.yml new/XML-LibXML-1.71/META.yml
--- old/XML-LibXML-1.70/META.yml 2009-10-07 14:29:25.000000000 +0200
+++ new/XML-LibXML-1.71/META.yml 2011-06-14 19:00:15.000000000 +0200
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: XML-LibXML
-version: 1.70
+version: 1.71
abstract: Interface to Gnome libxml2 xml parsing and DOM library
author:
- Petr Pajas
@@ -11,13 +11,14 @@
build_requires:
ExtUtils::MakeMaker: 0
requires:
+ ExtUtils::MakeMaker: 6.56
XML::NamespaceSupport: 1.07
XML::SAX: 0.11
no_index:
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.52
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/Makefile.PL new/XML-LibXML-1.71/Makefile.PL
--- old/XML-LibXML-1.70/Makefile.PL 2009-10-07 14:28:59.000000000 +0200
+++ new/XML-LibXML-1.71/Makefile.PL 2011-06-14 18:56:42.000000000 +0200
@@ -1,5 +1,5 @@
# -------------------------------------------------------------------------- #
-# $Id: Makefile.PL 818 2009-10-07 12:26:07Z pajas $
+# $Id$
# -------------------------------------------------------------------------- #
# Makefile.PL for XML::LibXML.
# This file is required to generate a localized Makefile
@@ -40,6 +40,7 @@
'PREREQ_PM' => {
'XML::SAX' => '0.11',
'XML::NamespaceSupport' => '1.07',
+ 'ExtUtils::MakeMaker' => '6.56'
},
'OBJECT' => '$(O_FILES)', # add the DOM extensions to libxml2
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/docs/libxml.dbk new/XML-LibXML-1.71/docs/libxml.dbk
--- old/XML-LibXML-1.70/docs/libxml.dbk 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/docs/libxml.dbk 2011-06-14 18:56:41.000000000 +0200
@@ -22,7 +22,7 @@
</authorgroup>
- <edition>1.70</edition>
+ <edition>1.71</edition>
<copyright>
<year>2001-2007</year>
<holder>AxKit.com Ltd</holder>
@@ -594,14 +594,17 @@
specified by the <literal><?xml version="1.0" encoding="..."?></literal>
declaration. Here is an example to follow:
<programlisting>use XML::LibXML;
-open my $fh, "file.xml";
+# load
+open my $fh, '<', 'file.xml';
binmode $fh; # drop all PerlIO layers possibly created by a <literal>use open</literal> pragma
$doc = XML::LibXML->load_xml(IO => $fh);
-open my $out, "out.xml";
-binmode $fh; # as above
-$doc->toFh($fh);
+
+# save
+open my $out, '>', 'out.xml';
+binmode $out; # as above
+$doc->toFh($out);
# or
-print $fh $doc->toString();</programlisting>
+print {$out} $doc->toString();</programlisting>
</para>
</listitem>
<listitem>
@@ -1129,7 +1132,7 @@
</listitem>
</varlistentry>
<varlistentry>
- <term>load_xml</term>
+ <term>load_html</term>
<listitem>
<funcsynopsis role="synopsis">
<funcsynopsisinfo># Parsing HTML</funcsynopsisinfo>
@@ -1999,10 +2002,6 @@
<para>Additionally to the generic functions, which are only able to process entire documents, XML::LibXML::SAX provides <emphasis>parse_chunk()</emphasis>.
This method generates SAX events from well balanced data such as is often provided by databases.</para>
-
- <para><emphasis>NOTE:</emphasis> At the moment XML::LibXML provides only an incomplete interface to libxml2's native SAX implementation. The
- current implementation is not tested in production environment. It may causes significant memory problems or shows wrong behaviour. If you run into
- specific problems using this part of XML::LibXML, let me know.</para>
</sect1>
</chapter>
@@ -2434,8 +2433,8 @@
document (see the actualEncoding() method)! This means you
can simply do:
</para>
- <programlisting>open OUT, $file;
-print OUT $doc->toString;</programlisting>
+ <programlisting>open my $out_fh, '>', $file;
+print {$out_fh} $doc->toString;</programlisting>
<para>regardless of the actual encoding of the document.
See the section on encodings in <xref linkend="XML-LibXML"/> for more details.</para>
<para>The optional <emphasis>$format</emphasis> parameter sets the indenting of the output. This parameter is expected to be an
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/dom.c new/XML-LibXML-1.71/dom.c
--- old/XML-LibXML-1.70/dom.c 2009-10-05 22:20:27.000000000 +0200
+++ new/XML-LibXML-1.71/dom.c 2011-06-09 16:23:09.000000000 +0200
@@ -1,4 +1,4 @@
-/* $Id: dom.c 816 2009-10-05 20:17:36Z pajas $
+/* $Id$
*
* This is free software, you may use it and distribute it under the same terms as
* Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/dom.h new/XML-LibXML-1.71/dom.h
--- old/XML-LibXML-1.70/dom.h 2009-09-24 10:38:57.000000000 +0200
+++ new/XML-LibXML-1.71/dom.h 2011-06-09 16:23:09.000000000 +0200
@@ -1,5 +1,5 @@
/* dom.h
- * $Id: dom.h 792 2009-09-24 08:36:11Z pajas $
+ * $Id$
* Author: Christian Glahn (2001)
*
* This header file provides some definitions for wrapper functions.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/example/xpath.pl new/XML-LibXML-1.71/example/xpath.pl
--- old/XML-LibXML-1.70/example/xpath.pl 2008-10-27 13:44:02.000000000 +0100
+++ new/XML-LibXML-1.71/example/xpath.pl 2011-06-09 16:23:09.000000000 +0200
@@ -1,6 +1,6 @@
#! /usr/bin/perl -w
-# $Id: xpath.pl 246 2002-05-08 00:39:56Z phish $
+# $Id$
use XML::LibXML;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Attr.pod new/XML-LibXML-1.71/lib/XML/LibXML/Attr.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Attr.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Attr.pod 2011-06-14 18:56:42.000000000 +0200
@@ -121,7 +121,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Boolean.pm new/XML-LibXML-1.71/lib/XML/LibXML/Boolean.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/Boolean.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Boolean.pm 2011-06-14 18:56:37.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: Boolean.pm 785 2009-07-16 14:17:46Z pajas $
+# $Id$
#
#
# This is free software, you may use it and distribute it under the same terms as
@@ -15,7 +15,7 @@
use vars qw ($VERSION);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use overload
'""' => \&value,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/CDATASection.pod new/XML-LibXML-1.71/lib/XML/LibXML/CDATASection.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/CDATASection.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/CDATASection.pod 2011-06-14 18:56:42.000000000 +0200
@@ -45,7 +45,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Comment.pod new/XML-LibXML-1.71/lib/XML/LibXML/Comment.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Comment.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Comment.pod 2011-06-14 18:56:42.000000000 +0200
@@ -46,7 +46,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Common.pm new/XML-LibXML-1.71/lib/XML/LibXML/Common.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/Common.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Common.pm 2011-06-14 18:56:37.000000000 +0200
@@ -23,7 +23,7 @@
@ISA = qw(Exporter);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use XML::LibXML qw(:libxml);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Common.pod new/XML-LibXML-1.71/lib/XML/LibXML/Common.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Common.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Common.pod 2011-06-14 18:56:42.000000000 +0200
@@ -116,7 +116,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/DOM.pod new/XML-LibXML-1.71/lib/XML/LibXML/DOM.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/DOM.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/DOM.pod 2011-06-14 18:56:41.000000000 +0200
@@ -129,7 +129,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Document.pod new/XML-LibXML-1.71/lib/XML/LibXML/Document.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Document.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Document.pod 2011-06-14 18:56:41.000000000 +0200
@@ -245,8 +245,8 @@
- open OUT, $file;
- print OUT $doc->toString;
+ open my $out_fh, '>', $file;
+ print {$out_fh} $doc->toString;
regardless of the actual encoding of the document. See the section on encodings
in L<<<<<< XML::LibXML >>>>>> for more details.
@@ -683,7 +683,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/DocumentFragment.pod new/XML-LibXML-1.71/lib/XML/LibXML/DocumentFragment.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/DocumentFragment.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/DocumentFragment.pod 2011-06-14 18:56:42.000000000 +0200
@@ -27,7 +27,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Dtd.pod new/XML-LibXML-1.71/lib/XML/LibXML/Dtd.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Dtd.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Dtd.pod 2011-06-14 18:56:42.000000000 +0200
@@ -89,7 +89,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Element.pod new/XML-LibXML-1.71/lib/XML/LibXML/Element.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Element.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Element.pod 2011-06-14 18:56:42.000000000 +0200
@@ -371,7 +371,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/ErrNo.pm new/XML-LibXML-1.71/lib/XML/LibXML/ErrNo.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/ErrNo.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/ErrNo.pm 2011-06-14 18:56:37.000000000 +0200
@@ -13,7 +13,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use constant ERR_OK => 0;
use constant ERR_INTERNAL_ERROR => 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/ErrNo.pod new/XML-LibXML-1.71/lib/XML/LibXML/ErrNo.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/ErrNo.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/ErrNo.pod 2011-06-14 18:56:42.000000000 +0200
@@ -14,7 +14,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Error.pm new/XML-LibXML-1.71/lib/XML/LibXML/Error.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/Error.pm 2009-10-04 21:39:39.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Error.pm 2011-06-14 18:56:37.000000000 +0200
@@ -9,7 +9,7 @@
package XML::LibXML::Error;
use strict;
-use vars qw($AUTOLOAD @error_domains $VERSION $WARNINGS);
+use vars qw(@error_domains $VERSION $WARNINGS);
use Carp;
use overload
'""' => \&as_string,
@@ -22,7 +22,7 @@
fallback => 1;
$WARNINGS = 0; # 0: supress, 1: report via warn, 2: report via die
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use constant XML_ERR_NONE => 0;
use constant XML_ERR_WARNING => 1; # A simple warning
@@ -52,14 +52,28 @@
use constant XML_ERR_FROM_CATALOG => 20; # The Catalog module
use constant XML_ERR_FROM_C14N => 21; # The Canonicalization module
use constant XML_ERR_FROM_XSLT => 22; # The XSLT engine from libxslt
-use constant XML_ERR_FROM_VALID => 23; # The validaton module
+use constant XML_ERR_FROM_VALID => 23; # The DTD validation module with valid context
+use constant XML_ERR_FROM_CHECK => 24; # The error-checking module
+use constant XML_ERR_FROM_WRITER => 25; # The xmlwriter module
+use constant XML_ERR_FROM_MODULE => 26; # The dynamically-loaded module module
+use constant XML_ERR_FROM_I18N => 27; # The module handling character conversion
+use constant XML_ERR_FROM_SCHEMATRONV=> 28; # The Schematron validator module
@error_domains = ("", "parser", "tree", "namespace", "validity",
"HTML parser", "memory", "output", "I/O", "ftp",
"http", "XInclude", "XPath", "xpointer", "regexp",
"Schemas datatype", "Schemas parser", "Schemas validity",
"Relax-NG parser", "Relax-NG validity",
- "Catalog", "C14N", "XSLT", "validity");
+ "Catalog", "C14N", "XSLT", "validity", "error-checking",
+ "xmlwriter", "dynamic loading", "i18n",
+ "Schematron validity");
+
+for my $field (qw) {
+ my $method = sub { $_[0]{$field} };
+ no strict 'refs';
+ *$field = $method;
+}
{
@@ -149,28 +163,17 @@
}
-sub AUTOLOAD {
- my $self=shift;
- return undef unless ref($self);
- my $sub = $AUTOLOAD;
- $sub =~ s/.*:://;
- if ($sub=~/^(?:code|_prev|level|file|line|domain|nodename|message|column|context|str[123]|num[12])$/) {
- return $self->{$sub};
- } else {
- croak("Unknown error field $sub");
- }
-}
-
# backward compatibility
sub int1 { $_[0]->num1 }
sub int2 { $_[0]->num2 }
-sub DESTROY {}
-
sub domain {
my ($self)=@_;
return undef unless ref($self);
- return $error_domains[$self->{domain}];
+ my $domain = $self->{domain};
+ # Newer versions of libxml2 might yield errors in domains that aren't
+ # listed above. Invent something reasonable in that case.
+ return $domain < @error_domains ? $error_domains[$domain] : "domain_$domain";
}
sub as_string {
@@ -202,7 +205,7 @@
$where.=": element ".$self->{nodename};
}
$msg.=$where.": " if $where ne "";
- $msg.=$error_domains[$self->{domain}]." ".$level." :";
+ $msg.=$self->domain." ".$level." :";
my $str=$self->{message}||"";
chomp($str);
$msg.=" ".$str."\n";
@@ -211,6 +214,12 @@
$msg.=$self->{str1}."\n";
$msg.=(" " x $self->{num1})."^\n";
} elsif (defined $self->{context}) {
+ # If the error relates to character-encoding problems in the context,
+ # then doing textual operations on it will spew warnings that
+ # XML::LibXML can do nothing to fix. So just disable all such
+ # warnings. This has the pleasing benefit of making the test suite
+ # run warning-free.
+ no warnings 'utf8';
my $context = $self->{context};
$msg.=$context."\n";
$context = substr($context,0,$self->{column});
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Error.pod new/XML-LibXML-1.71/lib/XML/LibXML/Error.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Error.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Error.pod 2011-06-14 18:56:42.000000000 +0200
@@ -241,7 +241,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/InputCallback.pod new/XML-LibXML-1.71/lib/XML/LibXML/InputCallback.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/InputCallback.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/InputCallback.pod 2011-06-14 18:56:42.000000000 +0200
@@ -279,7 +279,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Literal.pm new/XML-LibXML-1.71/lib/XML/LibXML/Literal.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/Literal.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Literal.pm 2011-06-14 18:56:37.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: Literal.pm 785 2009-07-16 14:17:46Z pajas $
+# $Id$
#
# This is free software, you may use it and distribute it under the same terms as
# Perl itself.
@@ -13,7 +13,7 @@
use strict;
use vars qw ($VERSION);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use overload
'""' => \&value,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Namespace.pod new/XML-LibXML-1.71/lib/XML/LibXML/Namespace.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Namespace.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Namespace.pod 2011-06-14 18:56:42.000000000 +0200
@@ -130,7 +130,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Node.pod new/XML-LibXML-1.71/lib/XML/LibXML/Node.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Node.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Node.pod 2011-06-14 18:56:41.000000000 +0200
@@ -739,7 +739,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/NodeList.pm new/XML-LibXML-1.71/lib/XML/LibXML/NodeList.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/NodeList.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/NodeList.pm 2011-06-14 18:56:37.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: NodeList.pm 785 2009-07-16 14:17:46Z pajas $
+# $Id$
#
# This is free software, you may use it and distribute it under the same terms as
# Perl itself.
@@ -14,7 +14,7 @@
use XML::LibXML::Number;
use vars qw ($VERSION);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use overload
'""' => \&to_literal,
@@ -189,10 +189,4 @@
Given a nodelist, prepends the list of nodes in $nodelist to the front of
the current list.
-=head2 iterator()
-
-Will return a new nodelist iterator for the current nodelist. A
-nodelist iterator is usefull if more complex nodelist processing is
-needed.
-
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Number.pm new/XML-LibXML-1.71/lib/XML/LibXML/Number.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/Number.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Number.pm 2011-06-14 18:56:37.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: Number.pm 785 2009-07-16 14:17:46Z pajas $
+# $Id$
#
# This is free software, you may use it and distribute it under the same terms as
# Perl itself.
@@ -13,7 +13,7 @@
use strict;
use vars qw ($VERSION);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use overload
'""' => \&value,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/PI.pod new/XML-LibXML-1.71/lib/XML/LibXML/PI.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/PI.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/PI.pod 2011-06-14 18:56:42.000000000 +0200
@@ -74,7 +74,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Parser.pod new/XML-LibXML-1.71/lib/XML/LibXML/Parser.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Parser.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Parser.pod 2011-06-14 18:56:41.000000000 +0200
@@ -175,7 +175,7 @@
to the new parser. See the constructor C<<<<<< new >>>>>> and L<<<<<< Parser Options >>>>>> for more information.
-=item load_xml
+=item load_html
$dom = XML::LibXML->load_html(...);
@@ -953,7 +953,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Pattern.pod new/XML-LibXML-1.71/lib/XML/LibXML/Pattern.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Pattern.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Pattern.pod 2011-06-14 18:56:42.000000000 +0200
@@ -94,7 +94,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Reader.pm new/XML-LibXML-1.71/lib/XML/LibXML/Reader.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/Reader.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Reader.pm 2011-06-14 18:56:37.000000000 +0200
@@ -14,7 +14,7 @@
use warnings;
use vars qw ($VERSION);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use 5.008_000;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Reader.pod new/XML-LibXML-1.71/lib/XML/LibXML/Reader.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Reader.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Reader.pod 2011-06-14 18:56:42.000000000 +0200
@@ -656,7 +656,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/RegExp.pod new/XML-LibXML-1.71/lib/XML/LibXML/RegExp.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/RegExp.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/RegExp.pod 2011-06-14 18:56:42.000000000 +0200
@@ -58,7 +58,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/RelaxNG.pod new/XML-LibXML-1.71/lib/XML/LibXML/RelaxNG.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/RelaxNG.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/RelaxNG.pod 2011-06-14 18:56:42.000000000 +0200
@@ -68,7 +68,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/SAX/Builder.pm new/XML-LibXML-1.71/lib/XML/LibXML/SAX/Builder.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/SAX/Builder.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/SAX/Builder.pm 2011-06-14 18:56:37.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: Builder.pm 785 2009-07-16 14:17:46Z pajas $
+# $Id$
#
# This is free software, you may use it and distribute it under the same terms as
# Perl itself.
@@ -18,7 +18,7 @@
return $XML::LibXML::__threads_shared ? 0 : 1;
}
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
sub new {
my $class = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/SAX/Builder.pod new/XML-LibXML-1.71/lib/XML/LibXML/SAX/Builder.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/SAX/Builder.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/SAX/Builder.pod 2011-06-14 18:56:41.000000000 +0200
@@ -38,7 +38,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/SAX/Generator.pm new/XML-LibXML-1.71/lib/XML/LibXML/SAX/Generator.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/SAX/Generator.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/SAX/Generator.pm 2011-06-14 18:56:37.000000000 +0200
@@ -14,7 +14,7 @@
use XML::LibXML;
use vars qw ($VERSION);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
sub CLONE_SKIP {
return $XML::LibXML::__threads_shared ? 0 : 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/SAX/Parser.pm new/XML-LibXML-1.71/lib/XML/LibXML/SAX/Parser.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/SAX/Parser.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/SAX/Parser.pm 2011-06-14 18:56:37.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: Parser.pm 785 2009-07-16 14:17:46Z pajas $
+# $Id$
#
# This is free software, you may use it and distribute it under the same terms as
# Perl itself.
@@ -17,7 +17,7 @@
use XML::SAX::Base;
use XML::SAX::DocumentLocator;
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
@ISA = ('XML::SAX::Base');
sub CLONE_SKIP {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/SAX.pm new/XML-LibXML-1.71/lib/XML/LibXML/SAX.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/SAX.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/SAX.pm 2011-06-14 18:56:37.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: SAX.pm 785 2009-07-16 14:17:46Z pajas $
+# $Id$
#
# This is free software, you may use it and distribute it under the same terms as
# Perl itself.
@@ -12,7 +12,7 @@
use strict;
use vars qw($VERSION @ISA);
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
use XML::LibXML;
use XML::SAX::Base;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/SAX.pod new/XML-LibXML-1.71/lib/XML/LibXML/SAX.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/SAX.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/SAX.pod 2011-06-14 18:56:41.000000000 +0200
@@ -21,12 +21,6 @@
documents, XML::LibXML::SAX provides I<<<<<< parse_chunk() >>>>>>. This method generates SAX events from well balanced data such as is often
provided by databases.
-I<<<<<< NOTE: >>>>>> At the moment XML::LibXML provides only an incomplete interface to libxml2's
-native SAX implementation. The current implementation is not tested in
-production environment. It may causes significant memory problems or shows
-wrong behaviour. If you run into specific problems using this part of
-XML::LibXML, let me know.
-
=head1 AUTHORS
Matt Sergeant,
@@ -36,7 +30,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Schema.pod new/XML-LibXML-1.71/lib/XML/LibXML/Schema.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Schema.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Schema.pod 2011-06-14 18:56:42.000000000 +0200
@@ -65,7 +65,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/Text.pod new/XML-LibXML-1.71/lib/XML/LibXML/Text.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/Text.pod 2009-10-07 14:20:45.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/Text.pod 2011-06-14 18:56:42.000000000 +0200
@@ -170,7 +170,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/XPathContext.pm new/XML-LibXML-1.71/lib/XML/LibXML/XPathContext.pm
--- old/XML-LibXML-1.70/lib/XML/LibXML/XPathContext.pm 2009-09-23 10:11:58.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/XPathContext.pm 2011-06-14 18:56:37.000000000 +0200
@@ -16,7 +16,7 @@
use XML::LibXML;
use XML::LibXML::NodeList;
-$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
+$VERSION = "1.71"; # VERSION TEMPLATE: DO NOT CHANGE
# should LibXML XPath data types be used for simple objects
# when passing parameters to extension functions (default: no)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/XPathContext.pod new/XML-LibXML-1.71/lib/XML/LibXML/XPathContext.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/XPathContext.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/XPathContext.pod 2011-06-14 18:56:42.000000000 +0200
@@ -359,7 +359,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/lib/XML/LibXML/XPathExpression.pod new/XML-LibXML-1.71/lib/XML/LibXML/XPathExpression.pod
--- old/XML-LibXML-1.70/lib/XML/LibXML/XPathExpression.pod 2009-10-07 14:20:46.000000000 +0200
+++ new/XML-LibXML-1.71/lib/XML/LibXML/XPathExpression.pod 2011-06-14 18:56:42.000000000 +0200
@@ -52,7 +52,7 @@
=head1 VERSION
-1.70
+1.71
=head1 COPYRIGHT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/perl-libxml-mm.c new/XML-LibXML-1.71/perl-libxml-mm.c
--- old/XML-LibXML-1.70/perl-libxml-mm.c 2009-09-23 10:11:59.000000000 +0200
+++ new/XML-LibXML-1.71/perl-libxml-mm.c 2011-06-09 16:23:10.000000000 +0200
@@ -1,6 +1,6 @@
/**
* perl-libxml-mm.c
- * $Id: perl-libxml-mm.c 785 2009-07-16 14:17:46Z pajas $
+ * $Id$
*
* This is free software, you may use it and distribute it under the same terms as
* Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/perl-libxml-mm.h new/XML-LibXML-1.71/perl-libxml-mm.h
--- old/XML-LibXML-1.70/perl-libxml-mm.h 2009-10-05 22:20:27.000000000 +0200
+++ new/XML-LibXML-1.71/perl-libxml-mm.h 2011-06-09 16:23:10.000000000 +0200
@@ -1,6 +1,6 @@
/**
* perl-libxml-mm.h
- * $Id: perl-libxml-mm.h 816 2009-10-05 20:17:36Z pajas $
+ * $Id$
*
* Basic concept:
* perl varies in the implementation of UTF8 handling. this header (together
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/perl-libxml-sax.c new/XML-LibXML-1.71/perl-libxml-sax.c
--- old/XML-LibXML-1.70/perl-libxml-sax.c 2009-09-24 10:38:57.000000000 +0200
+++ new/XML-LibXML-1.71/perl-libxml-sax.c 2011-06-09 16:23:10.000000000 +0200
@@ -1,6 +1,6 @@
/**
* perl-libxml-sax.c
- * $Id: perl-libxml-sax.c 792 2009-09-24 08:36:11Z pajas $
+ * $Id$
*
* This is free software, you may use it and distribute it under the same terms as
* Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/perl-libxml-sax.h new/XML-LibXML-1.71/perl-libxml-sax.h
--- old/XML-LibXML-1.70/perl-libxml-sax.h 2009-09-24 10:38:57.000000000 +0200
+++ new/XML-LibXML-1.71/perl-libxml-sax.h 2011-06-09 16:23:10.000000000 +0200
@@ -1,6 +1,6 @@
/**
* perl-libxml-sax.h
- * $Id: perl-libxml-sax.h 792 2009-09-24 08:36:11Z pajas $
+ * $Id$
*/
#ifndef __PERL_LIBXML_SAX_H__
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/02parse.t new/XML-LibXML-1.71/t/02parse.t
--- old/XML-LibXML-1.70/t/02parse.t 2009-10-04 21:15:14.000000000 +0200
+++ new/XML-LibXML-1.71/t/02parse.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 02parse.t 737 2008-11-02 20:29:59Z pajas $
+# $Id$
##
# this test checks the parsing capabilities of XML::LibXML
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/03doc.t new/XML-LibXML-1.71/t/03doc.t
--- old/XML-LibXML-1.70/t/03doc.t 2009-09-30 15:29:25.000000000 +0200
+++ new/XML-LibXML-1.71/t/03doc.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 03doc.t 802 2009-09-30 13:26:35Z pajas $
+# $Id$
##
# this test checks the DOM Document interface of XML::LibXML
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/04node.t new/XML-LibXML-1.71/t/04node.t
--- old/XML-LibXML-1.70/t/04node.t 2009-10-04 23:20:32.000000000 +0200
+++ new/XML-LibXML-1.71/t/04node.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,5 +1,5 @@
# -*- cperl -*-
-# $Id: 04node.t 809 2009-10-04 21:17:41Z pajas $
+# $Id$
##
# this test checks the DOM Node interface of XML::LibXML
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/05text.t new/XML-LibXML-1.71/t/05text.t
--- old/XML-LibXML-1.70/t/05text.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/05text.t 2011-06-09 16:51:39.000000000 +0200
@@ -1,11 +1,11 @@
-# $Id: 05text.t 618 2006-11-10 18:18:24Z pajas $
+# $Id$
##
# this test checks the DOM Characterdata interface of XML::LibXML
use Test;
-BEGIN { plan tests => 32 };
+BEGIN { plan tests => 36 };
use XML::LibXML;
my $doc = XML::LibXML::Document->new();
@@ -87,6 +87,26 @@
$textnode->replaceDataString( "e?s", 'ne\w' );
ok( $textnode->nodeValue(), 'tne\wt' );
+ # check if "." is encoded properly
+ $textnode->setData( "h.thrt");
+ $textnode->replaceDataString( "h.t", 'new', 1 );
+ ok( $textnode->nodeValue(), 'newhrt' );
+
+ # check if deleteDataString does not delete dots.
+ $textnode->setData( 'hitpit' );
+ $textnode->deleteDataString( 'h.t' );
+ ok( $textnode->nodeValue(), 'hitpit' );
+
+ # check if deleteDataString works
+ $textnode->setData( 'hitpithit' );
+ $textnode->deleteDataString( 'hit' );
+ ok( $textnode->nodeValue(), 'pithit' );
+
+ # check if deleteDataString all works
+ $textnode->setData( 'hitpithit' );
+ $textnode->deleteDataString( 'hit', 1 );
+ ok( $textnode->nodeValue(), 'pit' );
+
# check if entities don't get translated
$textnode->setData(q(foo&bar));
ok ( $textnode->getData eq q(foo&bar) );
@@ -130,4 +150,4 @@
my $node = XML::LibXML::DocumentFragment->new();
ok( $node->nodeName(), "#document-fragment" );
-}
\ No newline at end of file
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/06elements.t new/XML-LibXML-1.71/t/06elements.t
--- old/XML-LibXML-1.70/t/06elements.t 2009-10-05 01:12:01.000000000 +0200
+++ new/XML-LibXML-1.71/t/06elements.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 06elements.t 755 2008-11-05 12:04:34Z pajas $
+# $Id$
##
# this test checks the DOM element and attribute interface of XML::LibXML
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/07dtd.t new/XML-LibXML-1.71/t/07dtd.t
--- old/XML-LibXML-1.70/t/07dtd.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/07dtd.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 07dtd.t 587 2006-08-28 18:14:24Z pajas $
+# $Id$
use Test;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/17callbacks.t new/XML-LibXML-1.71/t/17callbacks.t
--- old/XML-LibXML-1.70/t/17callbacks.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/17callbacks.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 17callbacks.t 527 2004-04-25 18:08:17Z phish $
+# $Id$
use Test;
BEGIN { plan tests => 43 }
END { ok(0) unless $loaded }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/19encoding.t new/XML-LibXML-1.71/t/19encoding.t
--- old/XML-LibXML-1.70/t/19encoding.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/19encoding.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,5 +1,5 @@
##
-# $Id: 19encoding.t 485 2003-11-07 16:49:51Z pajas $
+# $Id$
#
# This should test the XML::LibXML internal encoding/ decoding.
# Since most of the internal encoding code is depentend to
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/20extras.t new/XML-LibXML-1.71/t/20extras.t
--- old/XML-LibXML-1.70/t/20extras.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/20extras.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 20extras.t 486 2003-11-07 18:09:05Z pajas $
+# $Id$
use Test;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/24c14n.t new/XML-LibXML-1.71/t/24c14n.t
--- old/XML-LibXML-1.70/t/24c14n.t 2009-10-04 22:15:31.000000000 +0200
+++ new/XML-LibXML-1.71/t/24c14n.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,5 +1,5 @@
# -*- cperl -*-
-# $Id: 24c14n.t 807 2009-10-04 20:12:40Z pajas $
+# $Id$
##
# these testcases are for xml canonization interfaces.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/25relaxng.t new/XML-LibXML-1.71/t/25relaxng.t
--- old/XML-LibXML-1.70/t/25relaxng.t 2009-09-23 10:11:59.000000000 +0200
+++ new/XML-LibXML-1.71/t/25relaxng.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 25relaxng.t 785 2009-07-16 14:17:46Z pajas $
+# $Id$
##
# Testcases for the RelaxNG interface
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/26schema.t new/XML-LibXML-1.71/t/26schema.t
--- old/XML-LibXML-1.70/t/26schema.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/26schema.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 26schema.t 497 2004-02-26 18:52:37Z phish $
+# $Id$
##
# Testcases for the XML Schema interface
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/27new_callbacks_simple.t new/XML-LibXML-1.71/t/27new_callbacks_simple.t
--- old/XML-LibXML-1.70/t/27new_callbacks_simple.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/27new_callbacks_simple.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 27new_callbacks_simple.t 540 2004-11-06 21:34:58Z phish $
+# $Id$
use Test;
BEGIN { plan tests => 21 }
END { ok(0) unless $loaded }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/28new_callbacks_multiple.t new/XML-LibXML-1.71/t/28new_callbacks_multiple.t
--- old/XML-LibXML-1.70/t/28new_callbacks_multiple.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/28new_callbacks_multiple.t 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-# $Id: 28new_callbacks_multiple.t 540 2004-11-06 21:34:58Z phish $
+# $Id$
use Test;
BEGIN { plan tests => 50 }
END { ok(0) unless $loaded }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/t/60struct_error.t new/XML-LibXML-1.71/t/60struct_error.t
--- old/XML-LibXML-1.70/t/60struct_error.t 2008-10-27 13:44:03.000000000 +0100
+++ new/XML-LibXML-1.71/t/60struct_error.t 2011-06-09 16:23:10.000000000 +0200
@@ -5,7 +5,7 @@
BEGIN {
use XML::LibXML;
if ( XML::LibXML::HAVE_STRUCT_ERRORS() ) {
- plan tests => 6;
+ plan tests => 8;
} else {
plan tests => 1;
}
@@ -37,4 +37,16 @@
fail() for 1..3;
}
+ my $fake_err = XML::LibXML::Error->new('fake error');
+ my $domain_num = @XML::LibXML::Error::error_domains; # too big
+ $fake_err->{domain} = $domain_num; # white-box test
+ ok($fake_err->domain, "domain_$domain_num",
+ '$err->domain is reasonable on unknown domain');
+ {
+ my $warnings = 0;
+ local $SIG{__WARN__} = sub { $warnings++; warn "@_\n" };
+ my $s = $fake_err->as_string;
+ ok($warnings, 0,
+ 'no warnings when stringifying unknown-domain error');
+ }
} # HAVE_STRUCT_ERRORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/XML-LibXML-1.70/xpath.c new/XML-LibXML-1.71/xpath.c
--- old/XML-LibXML-1.70/xpath.c 2009-09-23 10:11:59.000000000 +0200
+++ new/XML-LibXML-1.71/xpath.c 2011-06-09 16:23:10.000000000 +0200
@@ -1,4 +1,4 @@
-/* $Id: xpath.c 785 2009-07-16 14:17:46Z pajas $
+/* $Id$
*
* This is free software, you may use it and distribute it under the same terms as
* Perl itself.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org