commit: 5348624a220f200388b782befd82ca162edd4a9c Author: Michael Mair-Keimberger <mm1ke <AT> gentoo <DOT> org> AuthorDate: Tue Nov 18 18:08:55 2025 +0000 Commit: Michael Mair-Keimberger <mm1ke <AT> gentoo <DOT> org> CommitDate: Tue Nov 18 18:08:55 2025 +0000 URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=5348624a
dev-perl/Sub-Delete: remove unused patch(es) Signed-off-by: Michael Mair-Keimberger <mm1ke <AT> gentoo.org> .../files/Sub-Delete-1.0.20-perl-separator.patch | 49 ---------------------- 1 file changed, 49 deletions(-) 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 deleted file mode 100644 index 3ee0ad04f085..000000000000 --- a/dev-perl/Sub-Delete/files/Sub-Delete-1.0.20-perl-separator.patch +++ /dev/null @@ -1,49 +0,0 @@ -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'; - { -
