From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 14 Aug 1999 13:08:41 +0000 (+0000)
Subject: Augment filesize limit note.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c5dd3cdd2117325610c635c754de6f181137c565;p=p5sagit%2Fp5-mst-13.2.git

Augment filesize limit note.

p4raw-id: //depot/cfgperl@3991
---

diff --git a/doio.c b/doio.c
index d3d4d97..8610a14 100644
--- a/doio.c
+++ b/doio.c
@@ -1026,7 +1026,8 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
      * filesize limit we would need getrlimit().  We could then
      * also transparently raise the limit with setrlimit() --
      * but only until the system hard limit/the filesystem limit,
-     * at which we would get EPERM. --jhi */
+     * 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)))
 	return FALSE;
     return !PerlIO_error(fp);