From: Peter Prymmer <PPrymmer@factset.com>
Date: Wed, 22 Nov 2000 15:04:13 +0000 (-0800)
Subject: small cleanup task for test suite
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a52322c1ec059cad07da381a8d64d764b79bdad;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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.