From efb7d2852ccfa9ee73957ff2843c4bc2e4850f47 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 13 Jul 2000 05:35:28 +0000
Subject: [PATCH] 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
---
 t/lib/selfloader.t | 2 ++
 1 file changed, 2 insertions(+)

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 {
-- 
2.7.4