[SCM] Debian packaging of libb-perlreq-perl branch, master, updated. debian/0.82-1-8-gbd069f3
gregor herrmann
gregoa at debian.org
Sat May 18 11:33:18 UTC 2013
The following commit has been merged in the master branch:
commit 0e71d114e8722ff0caca1fbb99b746e96c2c3661
Author: gregor herrmann <gregoa at debian.org>
Date: Sat May 18 13:23:20 2013 +0200
Add patch from Niko Tyni to handle hash randomization changes
in Perl since 5.17.
Closes: #708592
diff --git a/debian/patches/0001-Fix-non-deterministic-failures-on-newer-perls.patch b/debian/patches/0001-Fix-non-deterministic-failures-on-newer-perls.patch
new file mode 100644
index 0000000..a488bc4
--- /dev/null
+++ b/debian/patches/0001-Fix-non-deterministic-failures-on-newer-perls.patch
@@ -0,0 +1,39 @@
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=85412
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=85412
+Bug-Debian: http://bugs.debian.org/708592
+
+From 428c3feac1e9c39f966cc66c36cc3881d202177c Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Sat, 18 May 2013 09:41:47 +0300
+Subject: [PATCH] Fix non-deterministic failures on newer perls
+
+The hash randomization changes in the Perl 5.17 series
+made perl.req to occasionally fail to report the dependencies.
+
+Improved diagnostics report
+
+ Use of each() on hash after insertion without resetting hash
+ iterator results in undefined behavior, Perl interpreter: 0x9e7010 at
+ /home/niko/tmp/libb-perlreq-perl-0.82/blib/lib/B/Walker.pm line 122.
+
+so use keys() instead of each(), as suggested by perldiag.pod.
+---
+ lib/B/Walker.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/lib/B/Walker.pm b/lib/B/Walker.pm
+index b71f204..f626043 100644
+--- a/lib/B/Walker.pm
++++ b/lib/B/Walker.pm
+@@ -119,7 +119,7 @@ sub walk_gv ($) {
+ sub walk_stash ($$);
+ sub walk_stash ($$) { # similar to B::walksymtable
+ my ($symref, $prefix) = @_;
+- while (my ($sym) = each %$symref) {
++ for my $sym (keys %$symref) {
+ no strict 'refs';
+ my $fullname = "*main::". $prefix . $sym;
+ if ($sym =~ /::\z/) {
+--
+1.7.10.4
+
diff --git a/debian/patches/series b/debian/patches/series
index 5299247..99617d5 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
spelling.patch
+0001-Fix-non-deterministic-failures-on-newer-perls.patch
--
Debian packaging of libb-perlreq-perl
More information about the Pkg-perl-cvs-commits
mailing list