applied patch, and undid change#1302 which it made unnecessary

[p5sagit/p5-mst-13.2.git] / t / lib / searchdict.t

diff --git a/t/lib/searchdict.t b/t/lib/searchdict.t
index 69329d6..447c425 100755 (executable)
--- a/t/lib/searchdict.t
+++ b/t/lib/searchdict.t
@@ -41,7 +41,7 @@ EOT
 use Search::Dict;
 
 open(DICT, "+>dict-$$") or die "Can't create dict-$$: $!";
-unlink "dict-$$";
+binmode DICT;                  # To make length expected one.
 print DICT $DICT;
 
 my $pos = look *DICT, "abash";
@@ -60,3 +60,6 @@ chomp($word = <DICT>);
 
 print "not " if $pos < 0 || $word ne "Aarhus";
 print "ok 3\n";
+
+close DICT or die "cannot close";
+unlink "dict-$$";