5 files changed, 5 insertions, 0 deletions
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index 80b39df141..52ab22b13e 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;
diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t
index c888c00f85..62bb936ff1 100755
--- a/t/lib/gdbm.t
+++ b/t/lib/gdbm.t
@@ -114,4 +114,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;
diff --git a/t/lib/ndbm.t b/t/lib/ndbm.t
index 15aa93a725..8e2ba8164a 100755
--- a/t/lib/ndbm.t
+++ b/t/lib/ndbm.t
@@ -117,4 +117,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;
diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index 0b1fa50cb9..0c530d2238 100755
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -117,4 +117,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;
diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t
index 1bb3fde392..65419f9711 100755
--- a/t/lib/sdbm.t
+++ b/t/lib/sdbm.t
@@ -116,4 +116,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;