[PATCH: perl@10022] YA tweak to avoid open file conflict in io/fflush.t

[Peter Prymmer]

Behavior before patch:

$ perl io/fflush.t;1
1..4
ok 1 # skipped: no fork
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "ff-prog" "ff-system-117281" "rl"
open ff-system-117281: file currently locked by another user at ff-prog
line 3.
%RMS-E-FLK, file currently locked by another user
# got Pe
# expected Perl
not ok 2
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "ff-prog" "ff-qx-117281" "rl"
open ff-qx-117281: file currently locked by another user at ff-prog line
3.
%RMS-E-FLK, file currently locked by another user
# got Pe
# expected Perl
not ok 3
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "ff-prog" "ff-popen-117281" "rl"
open ff-popen-117281: file currently locked by another user at ff-prog
line 3.
%RMS-E-FLK, file currently locked by another user
# got Pe
# expected Perl
not ok 4

after patch:

$ perl io/fflush.t
1..4
ok 1 # skipped: no fork
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "ff-prog" "ff-system-117281" "rl"
# got Perl
# expected Perl
ok 2
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "ff-prog" "ff-qx-117281" "rl"
# got Perl
# expected Perl
ok 3
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "ff-prog" "ff-popen-117281" "rl"
# got Perl
# expected Perl
ok 4

Here is the patch:

--- io/fflush.t;1       Mon May  7 17:09:15 2001
+++ io/fflush.t Mon May  7 18:46:05 2001
@@ -122,9 +122,9 @@
     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;
End of Patch.

Peter Prymmer