[libnet-jabber-perl] 01/09: Add patch to sort hash before XML encoding it.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libnet-jabber-perl.

commit 47d667830d520e69c9a5d6c41bb013b200724a39
Author: gregor herrmann <gregoa at debian.org>
Date:   Sat Jul 26 19:45:44 2014 +0200

    Add patch to sort hash before XML encoding it.
    
    Closes: #720271
---
 debian/patches/40hash-randomisation.patch | 19 +++++++++++++++++++
 debian/patches/series                     |  1 +
 2 files changed, 20 insertions(+)

diff --git a/debian/patches/40hash-randomisation.patch b/debian/patches/40hash-randomisation.patch
new file mode 100644
index 0000000..597aa8d
--- /dev/null
+++ b/debian/patches/40hash-randomisation.patch
@@ -0,0 +1,19 @@
+Description: feed hash to RPCEncode_Value() sorted
+Origin: vendor
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=87436
+Bug-Debian: https://bugs.debian.org/720271
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=87436
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2014-07-26
+
+--- a/lib/Net/Jabber/Protocol.pm
++++ b/lib/Net/Jabber/Protocol.pm
+@@ -2239,7 +2239,7 @@
+     elsif (ref($value) eq "HASH")
+     {
+         my $struct = $obj->AddValue()->AddStruct();
+-        foreach my $key (keys(%{$value}))
++        foreach my $key (sort keys(%{$value}))
+         {
+             $self->RPCEncode_Value($struct->AddMember(name=>$key),$value->{$key});
+         }
diff --git a/debian/patches/series b/debian/patches/series
index ac8b167..f5d9d70 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 10shebangs.patch
 20disable_networking_tests.patch
 30use_Digest-SHA.patch
+40hash-randomisation.patch

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