diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-15 20:19:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-15 20:19:22 +0000 |
| commit | 67e70b337a8efad4c893a32652ba61fe203f5803 (patch) | |
| tree | 1d40cd7c09f563bcdece863d27b168cd55b0f6dc /pp_ctl.c | |
| parent | ec0b63d7653607317b5427af153e4a7e13388bee (diff) | |
| download | perl-67e70b337a8efad4c893a32652ba61fe203f5803.tar.gz | |
I believe that it makes little sense for the simple user filters
provided by coderefs to be run in block mode. Hence always read from
the upstream filter in line mode, and always call the user's filter
with 1 line.
p4raw-id: //depot/perl@27821
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4575,7 +4575,7 @@ S_run_user_filter(pTHX_ int idx, SV *buf_sv, int maxlen) SvUPGRADE(upstream, SVt_PV); if (filter_has_file) { - status = FILTER_READ(idx+1, upstream, maxlen); + status = FILTER_READ(idx+1, upstream, 0); } assert(filter_sub); @@ -4590,7 +4590,7 @@ S_run_user_filter(pTHX_ int idx, SV *buf_sv, int maxlen) DEFSV = upstream; PUSHMARK(SP); - PUSHs(sv_2mortal(newSViv(maxlen))); + PUSHs(sv_2mortal(newSViv(0))); if (filter_state) { PUSHs(filter_state); } |