From a21ac4552d742a18f489042bfa4e20a8d8d978a2 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 19 Oct 2000 19:09:20 +0100 Subject: [PATCH] PATCH do_print has 2 PerlIO_error()s Message-ID: <20001019180920.A8440@babyhippo.co.uk> p4raw-id: //depot/perl@7370 --- doio.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); } -- 2.7.4