Clean up temporary test file in Search-Dict test

Need to untie before unlink on Windows.

diff --git a/dist/Search-Dict/t/Dict.t b/dist/Search-Dict/t/Dict.t
index 04f8c8d..bc997b0 100644 (file)
--- a/dist/Search-Dict/t/Dict.t
+++ b/dist/Search-Dict/t/Dict.t
@@ -99,6 +99,7 @@ close DICT or die "cannot close";
   cmp_ok $pos, ">=", 0, "case-insensitive search for 'aarhus' returned > 0";
   is $word, "Aarhus", "case-insensitive search found 'Aarhus'";
 
+  untie *DICT;
 }
 unlink "dict-$$";