1 files changed, 10 insertions, 1 deletions
diff --git a/t/op/caller.t b/t/op/caller.t
index d77088e611..4fcc8513f7 100644
--- a/t/op/caller.t
+++ b/t/op/caller.t
@@ -5,7 +5,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    plan( tests => 82 );
+    plan( tests => 83 );
 }
 
 my @c;
@@ -225,6 +225,15 @@ EOP
     ::is $gone, 1, 'caller does not leak @DB::args elems when AvREAL';
 }
 
+# And this crashed [perl #93320]:
+sub {
+  package DB;
+  ()=caller(0);
+  undef *DB::args;
+  ()=caller(0);
+}->();
+pass 'No crash when @DB::args is freed between caller calls';
+
 $::testing_caller = 1;
 
 do './op/caller.pl' or die $@;