[SCM] Debian packaging of libjson-xs-perl branch, master, updated. debian/2.330-1-12-g8d8e76d

gregor herrmann gregoa at debian.org
Mon May 13 18:13:31 UTC 2013


The following commit has been merged in the master branch:
commit 2402da59c3d4fa383458af76cb4b388d05a20d7e
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon May 13 19:41:19 2013 +0200

    Add patch from CPAN RT to fix test failure with perl >= 5.17.10.
    
    Closes: #708021

diff --git a/debian/patches/hash_perl_5.17.10.patch b/debian/patches/hash_perl_5.17.10.patch
new file mode 100644
index 0000000..f5c2c7a
--- /dev/null
+++ b/debian/patches/hash_perl_5.17.10.patch
@@ -0,0 +1,31 @@
+Description: Fix test failure with perl >= 5.17.0
+ The problem looks to me like it is due to the fact that under 5.17.10 hash
+ iteration is randomized on a per-hash basis (per perl51710delta). The
+ failing tests appear to be round-trip tests that assume identical hashes
+ serialize identically. The attached patch fixes the failures (for me) by
+ calling ->canonical() on the JSON::XS objects involved.
+Origin: https://rt.cpan.org/Ticket/Display.html?id=84151
+Bug: https://rt.cpan.org/Ticket/Display.html?id=84151
+Bug-Debian: http://bugs.debian.org/708021
+Forwarded: not-needed
+Author: wyant at cpan.org
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-05-13
+
+--- a/t/19_incr.t
++++ b/t/19_incr.t
+@@ -24,10 +24,10 @@
+    }
+ }
+ 
+-splitter +JSON::XS->new              , '  ["x\\"","\\u1000\\\\n\\nx",1,{"\\\\" :5 , "": "x"}]';
+-splitter +JSON::XS->new              , '[ "x\\"","\\u1000\\\\n\\nx" , 1,{"\\\\ " :5 , "": " x"} ] ';
+-splitter +JSON::XS->new->allow_nonref, '"test"';
+-splitter +JSON::XS->new->allow_nonref, ' "5" ';
++splitter +JSON::XS->new->canonical   , '  ["x\\"","\\u1000\\\\n\\nx",1,{"\\\\" :5 , "": "x"}]';
++splitter +JSON::XS->new->canonical   , '[ "x\\"","\\u1000\\\\n\\nx" , 1,{"\\\\ " :5 , "": " x"} ] ';
++splitter +JSON::XS->new->allow_nonref->canonical, '"test"';
++splitter +JSON::XS->new->allow_nonref->canonical, ' "5" ';
+ 
+ {
+    my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}';
diff --git a/debian/patches/series b/debian/patches/series
index f5e2e86..3bb49db 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 true-false-decode-pod-fix
+hash_perl_5.17.10.patch

-- 
Debian packaging of libjson-xs-perl



More information about the Pkg-perl-cvs-commits mailing list