X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Ffflush.t;h=fbf6b47fe1e23b3c92f2ae5410bed24fcd57a9d5;hb=ec3f2d8be8ce8cf45558045599c51ca3f4d57e3e;hp=2c7f7bbc979fb1951ae2a1bcb19d1f25eadb18c3;hpb=375927eb17fc2e1784e0297bc64d5a9f12bd0496;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io/fflush.t b/t/io/fflush.t
index 2c7f7bb..fbf6b47 100644
--- a/t/io/fflush.t
+++ b/t/io/fflush.t
@@ -66,7 +66,7 @@ print OUT $str;
 close OUT;
 EOF
     ;
-close PROG;
+close PROG or die "close ff-prog: $!";;
 push @delete, "ff-prog";
 
 $| = 0; # we want buffered output
@@ -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 or die "close $f: $!";;
     print "# $command\n";
     $code->($command);
-    close OUT;
     print file_eq($f, "Perl") ? "ok $t\n" : "not ok $t\n";
     push @delete, $f;
     ++$t;