[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