From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Thu, 7 Jan 2010 11:12:49 +0000 (+0100)
Subject: Cleanup PerlIO temp files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c1bf414cd50bd38fc03b19662a57f8bcb9008994;p=p5sagit%2Fp5-mst-13.2.git

Cleanup PerlIO temp files
---

diff --git a/t/io/perlio.t b/t/io/perlio.t
index 0bb23fa..1499ca2 100644
--- 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_*>;
     }
 }