From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 19 Oct 2000 18:09:20 +0000 (+0100)
Subject: PATCH do_print has 2 PerlIO_error()s
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a21ac4552d742a18f489042bfa4e20a8d8d978a2;p=p5sagit%2Fp5-mst-13.2.git

PATCH do_print has 2 PerlIO_error()s
Message-ID: <20001019180920.A8440@babyhippo.co.uk>

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

diff --git a/doio.c b/doio.c
index 7c4d3c9..eba2f8c 100644
--- a/doio.c
+++ b/doio.c
@@ -1200,7 +1200,7 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
      * but only until the system hard limit/the filesystem limit,
      * at which we would get EPERM.  Note that when using buffered
      * io the write failure can be delayed until the flush/close. --jhi */
-    if (len && (PerlIO_write(fp,tmps,len) == 0 || PerlIO_error(fp)))
+    if (len && (PerlIO_write(fp,tmps,len) == 0))
 	return FALSE;
     return !PerlIO_error(fp);
 }