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

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index d7d3fda0be..43db9de319 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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);
 	}