mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2025-12-11 00:07:51 +03:00
dev-perl/Sub-Delete: remove unused patch(es)
Signed-off-by: Michael Mair-Keimberger <mm1ke@gentoo.org>
This commit is contained in:
parent
695f1ecc3e
commit
5348624a22
@ -1,49 +0,0 @@
|
|||||||
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';
|
|
||||||
{
|
|
||||||
|
|
||||||
Loading…
x
Reference in New Issue
Block a user