small cleanup task for test suite

Message-ID: <Pine.OSF.4.10.10011221457530.519633-100000@aspara.forte.com>

p4raw-id: //depot/perl@7823

diff --git a/t/pragma/warn/pp_hot b/t/pragma/warn/pp_hot
index 4268205..698255c 100644 (file)
--- a/t/pragma/warn/pp_hot
+++ b/t/pragma/warn/pp_hot
@@ -151,6 +151,7 @@ open (FH, ">./xcv") ;
 my $a = <FH> ;
 no warnings 'io' ;
 $a = <FH> ;
+close (FH) ;
 unlink $file ;
 EXPECT
 Filehandle FH opened only for output at - line 5.