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

diff --git a/t/io/fflush.t b/t/io/fflush.t
index 6c22fa6..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,7 +122,7 @@ 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;
+    close OUT or die "close $f: $!";;
     print "# $command\n";
     $code->($command);
     print file_eq($f, "Perl") ? "ok $t\n" : "not ok $t\n";