YA tweak to avoid open file conflict in io/fflush.t
Peter Prymmer [Mon, 7 May 2001 17:50:48 +0000 (10:50 -0700)]
Message-ID: <Pine.OSF.4.10.10105071746570.317708-100000@aspara.forte.com>

p4raw-id: //depot/perl@10028

t/io/fflush.t

index 2c7f7bb..6c22fa6 100644 (file)
@@ -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;