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 (executable)
--- 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 {