This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Free tied hash iterator state immediately at the `untie` call
[perl5.git] / t / op / tie.t
index 68d42ee..089c1ee 100644 (file)
@@ -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