diff options
author | Nicholas Clark <nick@ccl4.org> | 2021-08-24 16:15:51 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2021-09-22 06:48:45 +0000 |
commit | 71e2181fdc1da7dfd599d69d45e604c493276c68 (patch) | |
tree | 1969a24bc0dd3da50438a663003147171205e280 /t | |
parent | 2536d892ffab416d2d30b44e4d64f0491177bf85 (diff) | |
download | perl-71e2181fdc1da7dfd599d69d45e604c493276c68.tar.gz |
Free tied hash iterator state immediately at the `untie` call
Previously the state was only freed at the point when the hash was iterated
again, or re-tied, or destroyed.
This shouldn't make any difference to sane code, but the change can be
detected with suitably pathological pure-Perl code, so someone might just
(unwisely) be relying on this undocumented implementation detail.
Diffstat (limited to 't')
-rw-r--r-- | t/op/tie.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 68d42ee60b..089c1ee23d 100644 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -1697,7 +1697,7 @@ FIRSTKEY is Note 0 Destroying 0 NEXTKEY is Note 1 Before untie +Destroying 1 After untie Before regular iteration -Destroying 1 After regular iteration |