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:44:57 +0000 |
| commit | a3b148a77585ec318bea1a1177fac768aa97d1a0 (patch) | |
| tree | 2a1df4eaf578c8e64e4d9b0089ec28eb4950ff81 /t/base | |
| parent | 502257bbd84303d76b53d1bb0970d257fb57e87e (diff) | |
| download | perl-a3b148a77585ec318bea1a1177fac768aa97d1a0.tar.gz | |
check return of close
Message-ID: <m3ellhgicd.fsf@anima.de>
p4raw-id: //depot/perl@13903
Diffstat (limited to 't/base')
| -rwxr-xr-x | t/base/rs.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/base/rs.t b/t/base/rs.t index 306d646e6d..f89c84e3a0 100755 --- a/t/base/rs.t +++ b/t/base/rs.t @@ -11,7 +11,7 @@ rmdir 'foo'; open TESTFILE, ">./foo" or die "error $! $^E opening"; binmode TESTFILE; print TESTFILE $teststring; -close TESTFILE; +close TESTFILE or die "error $! $^E closing"; open TESTFILE, "<./foo"; binmode TESTFILE; |