Change 13903: [PATCH] check return of close

[Jarkko Hietaniemi]

Change 13903 by jhi@alpha on 2001/12/27 13:44:57

        Subject: [PATCH] check return of close
        From: [EMAIL PROTECTED] (Andreas J. Koenig)            
        Date: 27 Dec 2001 09:47:30 +0100
        Message-ID: <[EMAIL PROTECTED]> 

Affected files ...

.... //depot/perl/t/base/rs.t#9 edit

Differences ...

==== //depot/perl/t/base/rs.t#9 (xtext) ====
Index: perl/t/base/rs.t
--- perl/t/base/rs.t.~1~        Thu Dec 27 07:00:06 2001
+++ perl/t/base/rs.t    Thu Dec 27 07:00:06 2001
@@ -11,7 +11,7 @@
 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;
End of Patch.