Searched refs:correct_length (Results 1 – 1 of 1) sorted by relevance
4969 unsigned int correct_length = maxlen < 0 ? PERL_INT_MAX : maxlen; in Perl_filter_read() local4980 if (correct_length) { in Perl_filter_read()4986 SvGROW(buf_sv, (STRLEN)(old_len + correct_length + 1)) ; in Perl_filter_read()4988 correct_length)) <= 0) { in Perl_filter_read()5012 return FILTER_READ(idx+1, buf_sv, correct_length); /* recurse */ in Perl_filter_read()5015 if (correct_length) { in Perl_filter_read()5019 if (correct_length > remainder) correct_length = remainder; in Perl_filter_read()5020 sv_catpvn(buf_sv, SvEND(datasv), correct_length); in Perl_filter_read()5021 SvCUR_set(datasv, SvCUR(datasv) + correct_length); in Perl_filter_read()5065 ret = (*funcp)(aTHX_ idx, buf_sv, correct_length); in Perl_filter_read()