From: Peter Prymmer <PPrymmer@factset.com>
Date: Mon, 7 May 2001 17:50:48 +0000 (-0700)
Subject: YA tweak to avoid open file conflict in io/fflush.t
X-Git-Tag: accepted/trunk/20130322.191538~32019
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a3d14d6a6e59cea3b2c933b54e6d6babf7210ef8;p=platform%2Fupstream%2Fperl.git

YA tweak to avoid open file conflict in io/fflush.t
Message-ID: <Pine.OSF.4.10.10105071746570.317708-100000@aspara.forte.com>

p4raw-id: //depot/perl@10028
---

diff --git a/t/io/fflush.t b/t/io/fflush.t
index 2c7f7bb..6c22fa6 100644
--- 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;