two fake test failures on VMS fixed

[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / output.t

diff --git a/lib/Test/Simple/t/output.t b/lib/Test/Simple/t/output.t
index ef89a07..69682e4 100644 (file)
--- a/lib/Test/Simple/t/output.t
+++ b/lib/Test/Simple/t/output.t
@@ -35,7 +35,7 @@ close *$out;
 undef $out;
 open(IN, 'foo') or die $!;
 chomp(my $line = <IN>);
-
+close IN;
 ok($line eq 'hi!');
 
 open(FOO, ">>foo") or die $!;