diff options
| author |   Sam James <sam@gentoo.org> | 2023-09-09 10:08:13 +0100 |
|---|---|---|
| committer | Sam James <sam@gentoo.org> | 2023-09-09 10:08:13 +0100 |
| commit | cedb17cb0dd0eaac04f3bcf3d83dc60363b22460 (patch) | |
| tree | 1e891e3797a0f6d3a718e1854c114b337376a099 /dev-perl/Sub-Delete | |
| parent | mail-filter/normalizemime: add 1.21 (diff) | |
| download | gentoo-cedb17cb0dd0eaac04f3bcf3d83dc60363b22460.tar.gz gentoo-cedb17cb0dd0eaac04f3bcf3d83dc60363b22460.tar.bz2 gentoo-cedb17cb0dd0eaac04f3bcf3d83dc60363b22460.zip | |
dev-perl/Sub-Delete: fix deprecated pkg. separator
Signed-off-by: Sam James <sam@gentoo.org>
Diffstat (limited to 'dev-perl/Sub-Delete')
| -rw-r--r-- | dev-perl/Sub-Delete/Sub-Delete-1.0.20-r1.ebuild | 25 | ||||
| -rw-r--r-- | dev-perl/Sub-Delete/files/Sub-Delete-1.0.20-perl-separator.patch | 49 |
2 files changed, 74 insertions, 0 deletions
diff --git a/dev-perl/Sub-Delete/Sub-Delete-1.0.20-r1.ebuild b/dev-perl/Sub-Delete/Sub-Delete-1.0.20-r1.ebuild new file mode 100644 index 000000000000..b323832dfcaa --- /dev/null +++ b/dev-perl/Sub-Delete/Sub-Delete-1.0.20-r1.ebuild @@ -0,0 +1,25 @@ +# Copyright 2020-2023 Gentoo Authors +# Distributed under the terms of the GNU General Public License v2 + +EAPI=8 + +DIST_AUTHOR=SPROUT +DIST_VERSION=1.00002 +inherit perl-module + +DESCRIPTION="Perl module enabling one to delete subroutines" + +SLOT="0" +KEYWORDS="~amd64 ~riscv ~x86 ~x64-macos" + +RDEPEND=" + >=virtual/perl-Exporter-5.570.0 +" +BDEPEND=" + ${RDEPEND} + virtual/perl-ExtUtils-MakeMaker +" + +PATCHES=( + "${FILESDIR}"/${PN}-1.0.20-perl-separator.patch +) diff --git a/dev-perl/Sub-Delete/files/Sub-Delete-1.0.20-perl-separator.patch b/dev-perl/Sub-Delete/files/Sub-Delete-1.0.20-perl-separator.patch new file mode 100644 index 000000000000..3ee0ad04f085 --- /dev/null +++ b/dev-perl/Sub-Delete/files/Sub-Delete-1.0.20-perl-separator.patch @@ -0,0 +1,49 @@ +https://bugs.debian.org/1050447 +https://rt.cpan.org/Public/Bug/Display.html?id=146682 + +commit e0e7d68582b40ff309657358357f61055e9a2ae8 +Author: Yves Orton <demerphq@gmail.com> +Date: Thu Feb 23 15:14:12 2023 +0100 + + deal with deprecation of apostrophe as a package separator + + this package for some reason includes its own copy of Test::More + which includes isn't, the code also uses apostrophe as a package + separator. This usage was deprecated in perl 5.37.9, and support + for it will be removed sometime in 5.39. + +--- a/lib/Sub/Delete.pm ++++ b/lib/Sub/Delete.pm +@@ -44,7 +44,7 @@ sub delete_sub { + } + delete $stash->{$key}; + keys %imported_slots == 1 and exists $imported_slots{SCALAR} +- and !$imported_slots{SCALAR} and Internals'SvREFCNT $$glob =>== 1 ++ and !$imported_slots{SCALAR} and Internals::SvREFCNT $$glob =>== 1 + and !defined *$glob{IO} and !defined *$glob{FORMAT} + and return; # empty glob + my $newglob = \*$globname; +--- a/t/Test/More.pm ++++ b/t/Test/More.pm +@@ -335,9 +335,6 @@ sub isnt ($$;$) { + $tb->isnt_eq(@_); + } + +-*isn't = \&isnt; +- +- + =item B<like> + + like( $this, qr/that/, $test_name ); +--- a/t/test.t ++++ b/t/test.t +@@ -97,7 +97,7 @@ SKIP:{ + } + + # Make sure ‘use vars’ info is preserved. +-{ package gred; *'chit = \$'chit } # use vars ++{ package gred; *::chit = \$::chit } # use vars + sub chit; + delete_sub 'chit'; + { + |