Found in rt.cpan.org ticket 17534, resolves problems with newer perls

Package-Manager: portage-2.1_pre6-r1

5 files changed, 71 insertions, 4 deletions

diff --git a/dev-perl/Sub-Uplevel/ChangeLog b/dev-perl/Sub-Uplevel/ChangeLog
index 7e292783346e..6bd9447075b1 100644
--- a/dev-perl/Sub-Uplevel/ChangeLog
+++ b/dev-perl/Sub-Uplevel/ChangeLog
@@ -1,6 +1,12 @@
 # ChangeLog for dev-perl/Sub-Uplevel
-# Copyright 2000-2005 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-perl/Sub-Uplevel/ChangeLog,v 1.13 2005/11/27 21:41:12 tgall Exp $
+# Copyright 2000-2006 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/Sub-Uplevel/ChangeLog,v 1.14 2006/03/19 00:40:10 mcummings Exp $
+
+*Sub-Uplevel-0.09-r1 (19 Mar 2006)
+
+  19 Mar 2006; Michael Cummings <mcummings@gentoo.org> +files/uplevel.patch,
+  +Sub-Uplevel-0.09-r1.ebuild:
+  Found in rt.cpan.org ticket 17534, resolves problems with newer perls
 
   27 Nov 2005; Tom Gall <tgall@gentoo.org> Sub-Uplevel-0.09.ebuild:
   stable on ppc64
diff --git a/dev-perl/Sub-Uplevel/Manifest b/dev-perl/Sub-Uplevel/Manifest
index a8226315bb15..438303bc16d7 100644
--- a/dev-perl/Sub-Uplevel/Manifest
+++ b/dev-perl/Sub-Uplevel/Manifest
@@ -1,4 +1,31 @@
-MD5 69a138b5ec06121ef53b4e1c33aa5433 ChangeLog 1372
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA1
+
+MD5 558201b1a0f9ce6eb700339dba478c1c ChangeLog 1593
+RMD160 18a623aef20c7d6eb12566fa4fb5a8df3f625044 ChangeLog 1593
+SHA256 db1f2e3bc8f5df58b410e2726df4c08a3c779885017cb2623fbcc47ec46c57e3 ChangeLog 1593
+MD5 19c4a0ceda6755d252fdd5ec0ed09bd0 Sub-Uplevel-0.09-r1.ebuild 586
+RMD160 7a07d5d9f6e1ea710d22e4931c95916da1104e11 Sub-Uplevel-0.09-r1.ebuild 586
+SHA256 892fb775d659d36171d42bf190fcad98df2a64b72d367a0e9ce6000456295287 Sub-Uplevel-0.09-r1.ebuild 586
 MD5 7d51e9165c46f78c93ef0a1d9000a5e0 Sub-Uplevel-0.09.ebuild 494
-MD5 e2d8f1bf77722def1dd432e26455c818 metadata.xml 305
+RMD160 9225d28e28b5b87cb53712b008e66a9593228759 Sub-Uplevel-0.09.ebuild 494
+SHA256 d3a8ccde8428d397a5505c91ddbf672f79564ec72f4cfa8df32395396982db82 Sub-Uplevel-0.09.ebuild 494
 MD5 70a7f5631935721fa470df47eebcafc6 files/digest-Sub-Uplevel-0.09 67
+RMD160 4d44e03342f8065d2c729250aae229e4bc1b1018 files/digest-Sub-Uplevel-0.09 67
+SHA256 31bb8e7f5a0b68c47cebeda13a539995a68e373cd8578fc93bd3d3de3c41661b files/digest-Sub-Uplevel-0.09 67
+MD5 4e973f83957f08797ba535fb26685e91 files/digest-Sub-Uplevel-0.09-r1 247
+RMD160 a4d8e22d0b0b4aa883a49a7f27acb2155c8873ee files/digest-Sub-Uplevel-0.09-r1 247
+SHA256 2b31070955d38ca4d66dfcfb265967126ff9ae3be0ec5b8e051873ddba2ea818 files/digest-Sub-Uplevel-0.09-r1 247
+MD5 3ab35574c8b0579a0647d6ee3551eb01 files/uplevel.patch 586
+RMD160 2190b06199b53e141083bff9bf59d67a4f91f29a files/uplevel.patch 586
+SHA256 fad259b14b5064baa6d0c5ad9256c4e4f0a88670272697954c2cf9f8bc9d9ff3 files/uplevel.patch 586
+MD5 e2d8f1bf77722def1dd432e26455c818 metadata.xml 305
+RMD160 647980838c590f54441a053916ea629e53e551c0 metadata.xml 305
+SHA256 f05dbef15061919972882cab07057e102760a542beba17d131194091401cd7ca metadata.xml 305
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1.4.1 (GNU/Linux)
+
+iD8DBQFEHKhjtG5z4I8BtQoRAlPkAJ9QJMash07CnPfbU8otinP7+lluggCfWWK2
+LQNBstSTGXHY7F8r9XYEfvI=
+=ACF2
+-----END PGP SIGNATURE-----
diff --git a/dev-perl/Sub-Uplevel/Sub-Uplevel-0.09-r1.ebuild b/dev-perl/Sub-Uplevel/Sub-Uplevel-0.09-r1.ebuild
new file mode 100644
index 000000000000..30ce102df567
--- /dev/null
+++ b/dev-perl/Sub-Uplevel/Sub-Uplevel-0.09-r1.ebuild
@@ -0,0 +1,20 @@
+# Copyright 1999-2006 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/Sub-Uplevel/Sub-Uplevel-0.09-r1.ebuild,v 1.1 2006/03/19 00:40:10 mcummings Exp $
+
+inherit perl-module eutils
+
+DESCRIPTION="apparently run a function in a higher stack frame"
+HOMEPAGE="http://search.cpan.org/~mschwern/${P}/"
+SRC_URI="mirror://cpan/authors/id/M/MS/MSCHWERN/${P}.tar.gz"
+
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~amd64 ~ppc ~ppc64 ~sparc ~x86"
+IUSE=""
+
+src_unpack() {
+	unpack ${A}
+	cd ${S}
+	epatch ${FILESDIR}/uplevel.patch
+}
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;