Lines Matching refs:buf_sv
2033 Perl_filter_read(pTHX_ int idx, SV *buf_sv, int maxlen)
2051 int old_len = SvCUR(buf_sv) ;
2053 /* ensure buf_sv is large enough */
2054 SvGROW(buf_sv, (STRLEN)(old_len + maxlen)) ;
2055 if ((len = PerlIO_read(PL_rsfp, SvPVX(buf_sv) + old_len, maxlen)) <= 0){
2061 SvCUR_set(buf_sv, old_len + len) ;
2064 if (sv_gets(buf_sv, PL_rsfp, SvCUR(buf_sv)) == NULL) {
2071 return SvCUR(buf_sv);
2078 return FILTER_READ(idx+1, buf_sv, maxlen); /* recurse */
2086 /* call "FILTER_READ(idx+1, buf_sv)" first. */
2088 return (*funcp)(aTHX_ idx, buf_sv, maxlen);