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 (executable)
--- 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;