Tests for iterator deletion [perl #85026]

diff --git a/t/op/hash.t b/t/op/hash.t
index 278bea7e1467334e96c7c1f27faa2f392d3c72bb..fa66f4cbdb464cecf5dd821c9b7d14b7bb6528ba 100644 (file)
--- a/t/op/hash.t
+++ b/t/op/hash.t
@@ -8,7 +8,7 @@ BEGIN {
 
 use strict;
 
-plan tests => 8;
+plan tests => 9;
 
 my %h;
 
@@ -146,3 +146,15 @@ is($destroyed, 1, 'Timely hash destruction with lvalue keys');
     is ref $key, SCALAR =>
      'hash keys are not stringified during compilation';
 }
+
+# Part of RT #85026: Deleting the current iterator in void context does not
+# free it.
+{
+    my $gone;
+    no warnings 'once';
+    local *::DESTROY = sub { ++$gone };
+    my %a=(a=>bless[]);
+    each %a;   # make the entry with the obj the current iterator
+    delete $a{a};
+    ok $gone, 'deleting the current iterator in void context frees the val'
+}