jplesnik pushed to perl-Devel-Profiler (master). "Fixed RT#104207"

[notifications at fedoraproject.org]

>From 24f1edd132d4c0d2d7a29372cab2b8f7887d2bc2 Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik at redhat.com>
Date: Mon, 4 May 2015 16:00:33 +0200
Subject: Fixed RT#104207


diff --git a/Devel-Profiler-0.04-Do-not-use-each-on-hash-after-insertion.patch b/Devel-Profiler-0.04-Do-not-use-each-on-hash-after-insertion.patch
new file mode 100644
index 0000000..7ad1c03
--- /dev/null
+++ b/Devel-Profiler-0.04-Do-not-use-each-on-hash-after-insertion.patch
@@ -0,0 +1,13 @@
+diff -up Devel-Profiler-0.04/lib/Devel/Profiler.pm.orig Devel-Profiler-0.04/lib/Devel/Profiler.pm
+--- Devel-Profiler-0.04/lib/Devel/Profiler.pm.orig	2015-05-04 14:21:19.656372129 +0200
++++ Devel-Profiler-0.04/lib/Devel/Profiler.pm	2015-05-04 15:46:34.250607264 +0200
+@@ -137,7 +137,8 @@ sub scan {
+           if DEBUG;
+         
+         no strict 'refs'; # need symbolic references to diddle symbol tables
+-        while (($sym, $glob) = each %{$pkg}) {
++        foreach $sym (keys %{${pkg}}) {
++            $glob = ${${pkg}}{$sym};
+             next if $sym eq $pkg; # self ref?  (%main::main::main::...)
+             
+             # found a subpackage?
diff --git a/perl-Devel-Profiler.spec b/perl-Devel-Profiler.spec
index 4c3e2d3..dcd360a 100644
--- a/perl-Devel-Profiler.spec
+++ b/perl-Devel-Profiler.spec
@@ -1,12 +1,14 @@
 Name:           perl-Devel-Profiler
 Version:        0.04
-Release:        20%{?dist}
+Release:        21%{?dist}
 Summary:        Perl profiler compatible with dprofpp
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Devel-Profiler/
 Source0:        http://www.cpan.org/authors/id/S/SA/SAMTREGAR/Devel-Profiler-%{version}.tar.gz
 Patch0:         perl-Devel-Profiler-perl510.patch
+# Stop using of each() on hash after insertion (CPAN RT#104207)
+Patch1:         Devel-Profiler-0.04-Do-not-use-each-on-hash-after-insertion.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
 # dprofpp from perl-Devel-DProf is executed
@@ -25,6 +27,7 @@ meant to be a drop-in replacement for Devel::DProf.
 %prep
 %setup -q -n Devel-Profiler-%{version}
 %patch0 -p1
+%patch1 -p1
 
 # t/01basic fails.  This is the failing test:
 #
@@ -63,6 +66,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man3/*
 
 %changelog
+* Mon May 04 2015 Jitka Plesnikova <jplesnik at redhat.com> - 0.04-21
+- Stop using of each() on hash after insertion (CPAN RT#104207)
+
 * Thu Aug 28 2014 Jitka Plesnikova <jplesnik at redhat.com> - 0.04-20
 - Perl 5.20 rebuild
 
-- 
cgit v0.10.2


	http://pkgs.fedoraproject.org/cgit/perl-Devel-Profiler.git/commit/?h=master&id=24f1edd132d4c0d2d7a29372cab2b8f7887d2bc2