In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c1bf414cd50bd38fc03b19662a57f8bcb9008994?hp=06fc68671f70339bdc6ddf5b7367ae9db8b4cd2a>
- Log ----------------------------------------------------------------- commit c1bf414cd50bd38fc03b19662a57f8bcb9008994 Author: Rafael Garcia-Suarez <[email protected]> Date: Thu Jan 7 12:12:49 2010 +0100 Cleanup PerlIO temp files ----------------------------------------------------------------------- Summary of changes: t/io/perlio.t | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) 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_*>; } } -- Perl5 Master Repository
