Patch for Perlbug #4253

[p5sagit/p5-mst-13.2.git] / t / base / rs.t

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;