>From 24f1edd132d4c0d2d7a29372cab2b8f7887d2bc2 Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik@xxxxxxxxxx>
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@xxxxxxxxxx> - 0.04-21
+- Stop using of each() on hash after insertion (CPAN RT#104207)
+
* Thu Aug 28 2014 Jitka Plesnikova <jplesnik@xxxxxxxxxx> - 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
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
