X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/7e42bd57a6867e174bc3bc555c3268b485940a98..bbad36071d5a6d4be3588f0f10c88247439076d8:/t/lib/anydbm.t

diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index 80b39df..52ab22b 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -111,4 +111,5 @@ print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
 print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
 print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
 
+untie %h;
 unlink 'Op.dbmx.dir', $Dfile;