summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Cummings <mcummings@gentoo.org>2006-03-19 00:40:10 +0000
committerMichael Cummings <mcummings@gentoo.org>2006-03-19 00:40:10 +0000
commitc9d4cc71fa8cd60ea328d8c0d82cc15b857e3707 (patch)
tree61dd10646275fdfeadc6e80f5e9daa281cade893 /dev-perl/Sub-Uplevel/files
parentAdd modular X dependencies. (diff)
downloadgentoo-2-c9d4cc71fa8cd60ea328d8c0d82cc15b857e3707.tar.gz
gentoo-2-c9d4cc71fa8cd60ea328d8c0d82cc15b857e3707.tar.bz2
gentoo-2-c9d4cc71fa8cd60ea328d8c0d82cc15b857e3707.zip
Found in rt.cpan.org ticket 17534, resolves problems with newer perls
(Portage version: 2.1_pre6-r1)
Diffstat (limited to 'dev-perl/Sub-Uplevel/files')
-rw-r--r--dev-perl/Sub-Uplevel/files/digest-Sub-Uplevel-0.09-r13
-rw-r--r--dev-perl/Sub-Uplevel/files/uplevel.patch11
2 files changed, 14 insertions, 0 deletions
diff --git a/dev-perl/Sub-Uplevel/files/digest-Sub-Uplevel-0.09-r1 b/dev-perl/Sub-Uplevel/files/digest-Sub-Uplevel-0.09-r1
new file mode 100644
index 000000000000..eb518a2e3ab6
--- /dev/null
+++ b/dev-perl/Sub-Uplevel/files/digest-Sub-Uplevel-0.09-r1
@@ -0,0 +1,3 @@
+MD5 eb09cb38cd7a9b7bc9d3e85e61fe09dd Sub-Uplevel-0.09.tar.gz 18351
+RMD160 f375abc31e51793405f6998dc2db2f15a90208a6 Sub-Uplevel-0.09.tar.gz 18351
+SHA256 4741db069370f9610320a8c1642fd306b3b17b8ef56302cda00e454fee77eb7a Sub-Uplevel-0.09.tar.gz 18351
diff --git a/dev-perl/Sub-Uplevel/files/uplevel.patch b/dev-perl/Sub-Uplevel/files/uplevel.patch
new file mode 100644
index 000000000000..e6ad3d48ce9f
--- /dev/null
+++ b/dev-perl/Sub-Uplevel/files/uplevel.patch
@@ -0,0 +1,11 @@
+--- lib/Sub/Uplevel.pm.orig 2006-03-18 19:33:47.000000000 -0500
++++ lib/Sub/Uplevel.pm 2006-03-18 19:35:03.000000000 -0500
+@@ -120,7 +120,7 @@ before or after Sub::Uplevel::uplevel().
+ # Yes, we need a C style for loop here since $height changes
+ for( my $up = 1; $up <= $height + 1; $up++ ) {
+ my @caller = CORE::caller($up);
+- if( $caller[0] eq __PACKAGE__ ) {
++ if( defined $caller[0] && $caller[0] eq __PACKAGE__ ) {
+ $height++;
+ $height += $Up_Frames unless $saw_uplevel;
+ $saw_uplevel = 1;