From e339c67581c7ac9d21e2b512e217f5d9dd523c54 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sun, 29 Sep 2024 17:40:07 +0200
Subject: [PATCH] fix for RT #146682 (replacing old package separator)
---
lib/Sub/Delete.pm | 2 +-
t/test.t | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Sub/Delete.pm b/lib/Sub/Delete.pm
index eb83921..288b937 100644
--- 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;
diff --git a/t/test.t b/t/test.t
index cccc5cd..61b1de1 100644
--- 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';
{
--
2.11.0