From: Andreas König <a.koenig@mind.de>
Date: Thu, 27 Dec 2001 09:47:30 +0000 (+0100)
Subject: check return of close
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3b148a77585ec318bea1a1177fac768aa97d1a0;p=p5sagit%2Fp5-mst-13.2.git

check return of close
Message-ID: <m3ellhgicd.fsf@anima.de>

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

diff --git a/t/base/rs.t b/t/base/rs.t
index 306d646..f89c84e 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;