Cleanup PerlIO temp files

diff --git a/t/io/perlio.t b/t/io/perlio.t
index 0bb23fa..1499ca2 100644 (file)
--- a/t/io/perlio.t
+++ b/t/io/perlio.t
@@ -101,6 +101,9 @@ ok(close($utffh));
 
       mkdir $ENV{TMPDIR};
       ok(open(my $x,"+<",undef), 'TMPDIR honored by magic temp file via 3 arg open with undef - works if TMPDIR points to an existent dir');
+
+      # hardcoded default temp path
+      unlink </tmp/PerlIO_*>;
     }
 }