avoid temp file littering in tests

p4raw-id: //depot/perl@11585

diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t
index debd2bc..dc2b2ba 100644 (file)
--- a/ext/PerlIO/t/encoding.t
+++ b/ext/PerlIO/t/encoding.t
@@ -36,7 +36,7 @@ if (open(UTF, "<$utf")) {
     # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3)
     print "not " unless <UTF> eq "\xce\xb1\xce\xb2\xce\xb3";
     print "ok 4\n";
-    close $grk;
+    close UTF;
 }
 
 {
@@ -54,7 +54,7 @@ if (open(UTF, "<$utf")) {
 if (open(GRK, "<$grk")) {
     print "not " unless <GRK> eq "\xe1\xe2\xe3";
     print "ok 8\n";
-    close $grk;
+    close GRK;
 }
 
 END {

diff --git a/lib/Memoize/t/errors.t b/lib/Memoize/t/errors.t
index 27daa92..2e81cdb 100755 (executable)
--- a/lib/Memoize/t/errors.t
+++ b/lib/Memoize/t/errors.t
@@ -33,7 +33,7 @@ for $mod (qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File)) {
   };
   print $@ =~ /can only store scalars/
      || $@ =~ /Can't locate.*in \@INC/ ? "ok $n\n" : "not ok $n # $@\n";
-  1 while unlink $dummyfile;
+  1 while unlink $dummyfile, "$dummyfile.dir", "$dummyfile.pag";
   $n++;
 }