[libconfig-std-perl] 01/07: Add patch from CPAN RT to fix hash ordering issues with Perl 5.18.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libconfig-std-perl.

commit 53a30e76e656f58dd77cf2862607964fa80590f6
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Aug 23 15:11:39 2013 +0200

    Add patch from CPAN RT to fix hash ordering issues with Perl 5.18.
    
    Closes: #711434
---
 debian/patches/hash_order.patch |   40 +++++++++++++++++++++++++++++++++++++++
 debian/patches/series           |    1 +
 2 files changed, 41 insertions(+)

diff --git a/debian/patches/hash_order.patch b/debian/patches/hash_order.patch
new file mode 100644
index 0000000..ff5907a
--- /dev/null
+++ b/debian/patches/hash_order.patch
@@ -0,0 +1,40 @@
+Description: fix hash order
+Origin: CP RT #85956
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=85956
+Bug-Debian: http://bugs.debian.org/711434
+Author: Zefram <zefram [...] fysh.org>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-08-23
+
+--- a/lib/Config/Std.pm	2011-04-13 01:16:53.000000000 +0000
++++ b/lib/Config/Std.pm	2013-08-23 09:57:00.839769846 +0000
+@@ -218,7 +218,7 @@
+         return unless $is_first{ident $self};
+ 
+         my $first = 1;
+-        for my $key ( grep {!$updated_ref->{$_}} keys %{$hash_ref}) {
++        for my $key ( sort grep {!$updated_ref->{$_}} keys %{$hash_ref}) {
+             my $value = $hash_ref->{$key};
+             my $separate = ref $value || $value =~ m/\n./xms;
+             $self->ensure_gap() if ($first ? $post_gap : $inter_gap)
+@@ -323,7 +323,7 @@
+             my $block = Config::Std::Block->new({name=>$block_name});
+             my $subhash = $hash_ref->{$block_name};
+             my $first = 1;
+-            for my $key ( keys %{$subhash} ) {
++            for my $key ( sort keys %{$subhash} ) {
+                 if (!defined $subhash->{$key}) {
+                     croak "Can't save undefined value for key {'$block_name'}{'$key'} (only scalars or array refs)";
+                 }
+--- a/t/00write.t	2011-04-13 01:16:53.000000000 +0000
++++ b/t/00write.t	2013-08-23 09:56:20.102550718 +0000
+@@ -42,8 +42,8 @@
+ 
+ __DATA__
+ 
+-def 3: def val 3
+ def 2: def val 2
++def 3: def val 3
+ 
+ def 3 ml: def val 3
+         : across several
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..b1063a2
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+hash_order.patch

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