* [gentoo-commits] gentoo-x86 commit in dev-perl/Devel-Profiler/files: perl510.patch
@ 2010-01-07 7:54 Torsten Veller (tove)
0 siblings, 0 replies; 2+ messages in thread
From: Torsten Veller (tove) @ 2010-01-07 7:54 UTC (permalink / raw
To: gentoo-commits
tove 10/01/07 07:54:28
Added: perl510.patch
Log:
Fix test failure (#299981). Patch from Fedora
(Portage version: 2.2_rc61/cvs/Linux x86_64)
Revision Changes Path
1.1 dev-perl/Devel-Profiler/files/perl510.patch
file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-perl/Devel-Profiler/files/perl510.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-perl/Devel-Profiler/files/perl510.patch?rev=1.1&content-type=text/plain
Index: perl510.patch
===================================================================
http://cvs.fedoraproject.org/viewvc/devel/perl-Devel-Profiler/perl-Devel-Profiler-perl510.patch
--- Devel-Profiler-0.04/lib/Devel/Profiler.pm
+++ Devel-Profiler-0.04/lib/Devel/Profiler.pm
@@ -151,9 +151,14 @@ sub scan {
}
# found a code ref? then instrument it
- instrument($pkg, $sym, $code)
- if defined($code = *{$glob}{CODE}) and ref $code eq 'CODE';
-
+ if (ref \$glob ne 'GLOB') {
+ # Something stranger in the typeglob, which will expand to (at
+ # least) a prototype if we take a reference to it.
+ instrument($pkg, $sym, \&{"$pkg$sym"});
+ } else {
+ instrument($pkg, $sym, $code)
+ if defined($code = *{$glob}{CODE}) and ref $code eq 'CODE';
+ }
}
}
}
--- Devel-Profiler-0.04/t/09fcntl.t
+++ Devel-Profiler-0.04/t/09fcntl.t
@@ -8,7 +8,14 @@ foo();
END
# make sure the call tree looks right
-check_tree(<<END, "checking tree");
+if ($] > 5.009) {
+ # Fcntl's constants are now directly defined, so constant() isn't called.
+ check_tree(<<END, "checking tree");
+main::foo
+END
+} else {
+ check_tree(<<END, "checking tree");
main::foo
Fcntl::constant
END
+}
^ permalink raw reply [flat|nested] 2+ messages in thread
* [gentoo-commits] gentoo-x86 commit in dev-perl/Devel-Profiler/files: perl510.patch
@ 2012-07-15 17:36 Torsten Veller (tove)
0 siblings, 0 replies; 2+ messages in thread
From: Torsten Veller (tove) @ 2012-07-15 17:36 UTC (permalink / raw
To: gentoo-commits
tove 12/07/15 17:36:50
Removed: perl510.patch
Log:
Remove dev-perl/Devel-Profiler (#420109)
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2012-07-15 17:36 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-07-15 17:36 [gentoo-commits] gentoo-x86 commit in dev-perl/Devel-Profiler/files: perl510.patch Torsten Veller (tove)
-- strict thread matches above, loose matches on Subject: below --
2010-01-07 7:54 Torsten Veller (tove)
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox