commit: cedb17cb0dd0eaac04f3bcf3d83dc60363b22460
Author: Sam James <sam <AT> gentoo <DOT> org>
AuthorDate: Sat Sep 9 09:08:13 2023 +0000
Commit: Sam James <sam <AT> gentoo <DOT> org>
CommitDate: Sat Sep 9 09:08:13 2023 +0000
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=cedb17cb
dev-perl/Sub-Delete: fix deprecated pkg. separator
Signed-off-by: Sam James <sam <AT> gentoo.org>
dev-perl/Sub-Delete/Sub-Delete-1.0.20-r1.ebuild | 25 +++++++++++
.../files/Sub-Delete-1.0.20-perl-separator.patch | 49 ++++++++++++++++++++++
2 files changed, 74 insertions(+)
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 <[email protected]>
+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';
+ {
+
