[libsoap-lite-perl] 01/05: Add patch to fix hash randomization caused test failure

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libsoap-lite-perl.

commit 3575d258169f4ccd7303aa1d62599b6b5384f949
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon Aug 12 15:14:04 2013 +0200

    Add patch to fix hash randomization caused test failure
    
    in perl 5.18.
    
    Closes: #710992
---
 debian/patches/perl5.18-test.patch |   49 ++++++++++++++++++++++++++++++++++++
 debian/patches/series              |    1 +
 2 files changed, 50 insertions(+)

diff --git a/debian/patches/perl5.18-test.patch b/debian/patches/perl5.18-test.patch
new file mode 100644
index 0000000..cea9c53
--- /dev/null
+++ b/debian/patches/perl5.18-test.patch
@@ -0,0 +1,49 @@
+Description: sort keys to fix hash randomization change in perl 5.18
+Origin: CPAN RT
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=84168
+Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=710992
+Author: wyant at cpan.org
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-08-12
+Applied-Upstream: yes, in 1.01
+
+--- a/t/02-payload.t
++++ b/t/02-payload.t
+@@ -12,8 +12,6 @@
+ 
+ BEGIN {
+     my @todo;
+-    $] >= 5.017010
+-    and push @todo, 37;
+     plan tests => 133, todo => \@todo;
+ }
+ 
+--- a/lib/SOAP/Lite.pm
++++ b/lib/SOAP/Lite.pm
+@@ -1365,7 +1365,7 @@
+             ),
+             'item',
+             ''
+-        )} keys %$value;
++        )} sort keys %$value;
+     return [
+         $name,
+         {'xsi:type' => "$prefix:Map", %$attr},
+@@ -1484,7 +1484,7 @@
+     my $tagattrs = join($tagjoiner, '',
+         map { sprintf '%s="%s"', $_, SOAP::Utils::encode_attribute($attrs->{$_}) }
+             grep { $_ && defined $attrs->{$_} && ($_ ne 'xsi:type' || $attrs->{$_} ne '') }
+-                keys %$attrs);
++                sort keys %$attrs);
+ 
+     if ($value gt '') {
+         return sprintf("$prolog$indent<%s%s>%s%s</%s>$epilog",$tag,$tagattrs,$value,($value =~ /^\s*</ ? $indent : ""),$tag);
+@@ -2974,7 +2974,7 @@
+             $minus ? push(@notrace, $all ? @list : $_) : push(@symbols, $all ? @list : $_);
+         }
+     }
+-    # TODO - I am getting a warning here about redefining a subroutine
++    no warnings qw{ redefine };
+     foreach (@symbols) { *$_ = \&defaultlog }
+     foreach (@notrace) { *$_ = sub {} }
+ }
diff --git a/debian/patches/series b/debian/patches/series
index db20ac9..9b6b03f 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 hashref_crash.patch
 update-test-plan.patch
+perl5.18-test.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libsoap-lite-perl.git