Commits

J Mash  committed d9d137b

Merged shlomif/perl-xml-libxml into default

  • Participants
  • Parent commits 6fba63c

Comments (0)

Files changed (4)

       to the XML::LibXML::NodeList module.
           - New method 'to_literal_delimited($separator)'
           - New method 'to_literal_list'()'
+    - Fix t/35huge_mode.t on libxml2 versions less than 2.7.0.
+        - Fixes https://rt.cpan.org/Ticket/Display.html?id=88375
+        - Thanks to Yuriy / YOREEK for the patch.
+    - Add toStringC14N_v1_1() to XML::LibXML::Node.
+        - Fixes https://rt.cpan.org/Public/Bug/Display.html?id=88254
+        - Thanks to Ulrich for the report and for a patch of sorts.
 
 2.0104          Fri 30 Aug 12:36:06 IDT 2013
     - Fix https://rt.cpan.org/Ticket/Display.html?id=88060
 				 (defined $xpc ? $xpc : undef)
 				);
 }
+
+{
+my $C14N_version_1_dot_1_val = 2;
+
+sub toStringC14N_v1_1 {
+    my ($self, $comments, $xpath, $xpc) = @_;
+
+    return $self->_toStringC14N(
+        $comments || 0,
+        (defined $xpath ? $xpath : undef),
+        $C14N_version_1_dot_1_val,
+        undef,
+        (defined $xpc ? $xpc : undef)
+    );
+}
+
+}
+
 sub toStringEC14N {
     my ($self, $comments, $xpath, $xpc, $inc_prefix_list) = @_;
     unless (UNIVERSAL::isa($xpc,'XML::LibXML::XPathContext')) {

File docs/libxml.dbk

                 </listitem>
             </varlistentry>
             <varlistentry>
+                <term>toStringC14N_v1_1</term>
+
+                <listitem>
+                    <funcsynopsis>
+                        <funcsynopsisinfo>$c14nstring = $node-&gt;toStringC14N_v1_1();
+$c14nstring = $node-&gt;toStringC14N_v1_1($with_comments, $xpath_expression , $xpath_context);</funcsynopsisinfo>
+                    </funcsynopsis>
+                    <para>
+                        This function behaves like toStringC14N() except that
+                        it uses the "XML_C14N_1_1" constant for
+                        canonicalising using the "C14N 1.1 spec".
+                    </para>
+                </listitem>
+            </varlistentry>
+            <varlistentry>
                 <term>toStringEC14N</term>
 
                 <listitem>

File t/35huge_mode.t

 use strict;
 use warnings;
 
-use Test::More tests => 5;
+use Test::More;
 
 use XML::LibXML;
 
+if (XML::LibXML::LIBXML_VERSION() < 20700) {
+    plan skip_all => "XML_PARSE_HUGE option not supported for libxml2 < 2.7.0";
+}
+else {
+    plan tests => 5;
+}
+
 my $benign_xml = <<'EOF';
 <?xml version="1.0"?>
 <!DOCTYPE lolz [