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 (file)
--- 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