diff options
author | Michael Cummings <mcummings@gentoo.org> | 2006-03-19 00:40:10 +0000 |
---|---|---|
committer | Michael Cummings <mcummings@gentoo.org> | 2006-03-19 00:40:10 +0000 |
commit | c9d4cc71fa8cd60ea328d8c0d82cc15b857e3707 (patch) | |
tree | 61dd10646275fdfeadc6e80f5e9daa281cade893 /dev-perl/Sub-Uplevel/files | |
parent | Add modular X dependencies. (diff) | |
download | gentoo-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-r1 | 3 | ||||
-rw-r--r-- | dev-perl/Sub-Uplevel/files/uplevel.patch | 11 |
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; |