diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2012-08-14 01:07:29 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2012-08-14 01:07:29 +0100 |
commit | 43c6d00448d6f91249aa89dd4a28e3d8a17a491f (patch) | |
tree | 483454dbf7dad0436202741504264818c888fabc /dist/Search-Dict | |
parent | a3ceab458cd7b88fe6e7aeea40b905294d0582f9 (diff) | |
download | perl-43c6d00448d6f91249aa89dd4a28e3d8a17a491f.tar.gz |
Clean up temporary test file in Search-Dict test
Need to untie before unlink on Windows.
Diffstat (limited to 'dist/Search-Dict')
-rw-r--r-- | dist/Search-Dict/t/Dict.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/Search-Dict/t/Dict.t b/dist/Search-Dict/t/Dict.t index 04f8c8d191..bc997b05d2 100644 --- 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-$$"; |