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