From: Steve Hay <SteveHay@planit.com>
Date: Thu, 26 Oct 2006 16:26:56 +0000 (+0000)
Subject: Close temporary test file before unlinking (for the sake of Win32)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8f9c76718e537ed4487b7abb2d2f3503ee90bdef;p=p5sagit%2Fp5-mst-13.2.git

Close temporary test file before unlinking (for the sake of Win32)

p4raw-id: //depot/perl@29120
---

diff --git a/lib/Term/UI/t/02_ui.t b/lib/Term/UI/t/02_ui.t
index 18a60a4..dbefdce 100644
--- a/lib/Term/UI/t/02_ui.t
+++ b/lib/Term/UI/t/02_ui.t
@@ -20,7 +20,7 @@ if( $ENV{PERL_CORE} ) {
     close *STDOUT;
     open *STDOUT, ">termui.$$" or diag("Could not open tempfile");
 }
-END { unlink "termui.$$" if $ENV{PERL_CORE} }
+END { close *STDOUT && unlink "termui.$$" if $ENV{PERL_CORE} }
 
 
 ### so T::RL doesn't go nuts over no console