From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 13 Jul 2000 05:35:28 +0000 (+0000)
Subject: new selfloader.t in change#6183 doesn't close DATA handles,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=efb7d2852ccfa9ee73957ff2843c4bc2e4850f47;p=p5sagit%2Fp5-mst-13.2.git

new selfloader.t in change#6183 doesn't close DATA handles,
and thus fails to clean up tmp files on dosish platforms

p4raw-link: @6183 on //depot/perl: bfdd149997f4a56ec34c947f0d733ecbfb53a519

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

diff --git a/t/lib/selfloader.t b/t/lib/selfloader.t
index 9c585a5..75d6561 100755
--- a/t/lib/selfloader.t
+++ b/t/lib/selfloader.t
@@ -165,6 +165,7 @@ if ($@ =~ /^Undefined subroutine/) {
 
 # Try to read from the data file handle
 my $foodata = <Foo::DATA>;
+close Foo::DATA;
 if (defined $foodata) {
     print "not ok 17 # $foodata\n";
 } else {
@@ -184,6 +185,7 @@ if ($@ =~ /^Undefined subroutine/) {
 
 # Try to read from the data file handle
 my $bardata = <Bar::DATA>;
+close Bar::DATA;
 if ($bardata ne "sub never { die \"D'oh\" }\n") {
     print "not ok 19 # $bardata\n";
 } else {