Lines Matching defs:append
6112 Perl_sv_gets(pTHX_ register SV *sv, register PerlIO *fp, I32 append)
6124 sv_force_normal_flags(sv, append ? 0 : SV_COW_DROP_PV);
6134 if (append) {
6138 sv_pos_u2b(sv,&append,0);
6144 SvCUR_set(sv,append);
6169 if (offset != (Off_t) -1 && st.st_size + append > offset) {
6170 (void) SvGROW(sv, (STRLEN)((st.st_size - offset) + append + 1));
6182 buffer = SvGROW(sv, (STRLEN)(recsize + append + 1)) + append;
6196 SvCUR_set(sv, bytesread += append);
6268 if ((I32)(SvLEN(sv) - append) <= cnt + 1) {
6272 if (rslen && cnt > 80 && (I32)SvLEN(sv) > append) {
6274 shortbuffered = cnt - SvLEN(sv) + append + 1;
6280 SvGROW(sv, (STRLEN)(append + (cnt <= 0 ? 2 : (cnt + 1))));
6285 bp = (STDCHAR*)SvPVX(sv) + append; /* move these two too to registers */
6316 SvGROW(sv, SvLEN(sv) + append + cnt + 2);
6422 if (append)
6432 append = -1;
6464 return (SvCUR(sv) - append) ? SvPVX(sv) : Nullch;