diff options
| author | Andreas König <a.koenig@mind.de> | 2001-12-27 10:47:30 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-27 13:53:25 +0000 |
| commit | f126f811c9f2a4fefd11f07d5e3babaa75ee3158 (patch) | |
| tree | 565d20a02de75df76277c1efd376ea3273255a48 /t/io/fflush.t | |
| parent | a3b148a77585ec318bea1a1177fac768aa97d1a0 (diff) | |
| download | perl-f126f811c9f2a4fefd11f07d5e3babaa75ee3158.tar.gz | |
[PATCH] check return of close
Date: 27 Dec 2001 09:47:30 +0100
Message-ID: <m3ellhgicd.fsf@anima.de>
Subject: [PATCH] improve error reporting
From: andreas.koenig@anima.de (Andreas J. Koenig)
Date: 27 Dec 2001 09:54:55 +0100
Message-ID: <m3adw5gi00.fsf@anima.de>
Subject: [PATCH] check return value of close
From: andreas.koenig@anima.de (Andreas J. Koenig)
Date: 27 Dec 2001 10:03:55 +0100
Message-ID: <m3666tghl0.fsf@anima.de>
Subject: [PATCH] return of close
From: andreas.koenig@anima.de (Andreas J. Koenig)
Date: 27 Dec 2001 10:22:15 +0100
Message-ID: <m31yhhggqg.fsf@anima.de>
p4raw-id: //depot/perl@13904
Diffstat (limited to 't/io/fflush.t')
| -rw-r--r-- | t/io/fflush.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/io/fflush.t b/t/io/fflush.t index 6c22fa663a..fbf6b47fe1 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"; |