Fix the leaktracer rewrite in 218b7c12 which broke under 5.10

[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Util / LeakTracer.pm

diff --git a/t/lib/DBICTest/Util/LeakTracer.pm b/t/lib/DBICTest/Util/LeakTracer.pm
index 1720f8c..d0e63f2 100644 (file)
--- a/t/lib/DBICTest/Util/LeakTracer.pm
+++ b/t/lib/DBICTest/Util/LeakTracer.pm
@@ -53,9 +53,10 @@ sub CLONE {
   for my $reg (@individual_regs) {
     my @live_slots = grep { defined $reg->{$_}{weakref} } keys %$reg
       or next;
+
     my @live_instances = @{$reg}{@live_slots};
 
-    %$reg = ();
+    $reg = {};  # get a fresh hashref in the new thread ctx
     weaken( $reg_of_regs{refaddr($reg)} = $reg );
 
     while (@live_slots) {