diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-11-22 07:04:13 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-22 23:19:31 +0000 |
| commit | 4a52322c1ec059cad07da381a8d64d764b79bdad (patch) | |
| tree | 535365c90622dbbf9f9616859a4e6ef9a4fdc7f0 /t/pragma | |
| parent | 4d6dcf47bfd1ad7ce278315fe0f3bcda017df300 (diff) | |
| download | perl-4a52322c1ec059cad07da381a8d64d764b79bdad.tar.gz | |
small cleanup task for test suite
Message-ID: <Pine.OSF.4.10.10011221457530.519633-100000@aspara.forte.com>
p4raw-id: //depot/perl@7823
Diffstat (limited to 't/pragma')
| -rw-r--r-- | t/pragma/warn/pp_hot | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/pragma/warn/pp_hot b/t/pragma/warn/pp_hot index 426820550c..698255c064 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. |