cat2type in tests for VMS

[p5sagit/p5-mst-13.2.git] / t / io / fflush.t

diff --git a/t/io/fflush.t b/t/io/fflush.t
index 2c7f7bb..6c22fa6 100644 (file)
--- a/t/io/fflush.t
+++ b/t/io/fflush.t
@@ -122,9 +122,9 @@ for (qw(system qx popen)) {
     my $command = qq{$runperl "ff-prog" "$f" "rl"};
     open OUT, "> $f" or die "open $f: $!";
     print OUT "Pe";
+    close OUT;
     print "# $command\n";
     $code->($command);
-    close OUT;
     print file_eq($f, "Perl") ? "ok $t\n" : "not ok $t\n";
     push @delete, $f;
     ++$t;