diff options
| author | Nicholas Clark <nick@ccl4.org> | 2000-10-19 19:09:20 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-19 17:18:08 +0000 |
| commit | a21ac4552d742a18f489042bfa4e20a8d8d978a2 (patch) | |
| tree | 3680011af7f9aaf0ca1c2752a36b5d712852e2db | |
| parent | 23c0d66e19f29ec5f83c45b3b78fdc40516cda41 (diff) | |
| download | perl-a21ac4552d742a18f489042bfa4e20a8d8d978a2.tar.gz | |
PATCH do_print has 2 PerlIO_error()s
Message-ID: <20001019180920.A8440@babyhippo.co.uk>
p4raw-id: //depot/perl@7370
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } |