In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/89655c2e76bb18695d13f2accf9932e415907f92?hp=a069fd9ed26dbc9a5d8eb94afb3326588c6b5e56>
- Log ----------------------------------------------------------------- commit 89655c2e76bb18695d13f2accf9932e415907f92 Author: Nicholas Clark <[email protected]> Date: Wed Oct 21 15:19:12 2009 +0100 S_utf16_textfilter() needs FILTER_DATA() to get the filter's state SV. aa6dbd607b0a3d8a wrongly assumed that the filter's state SV was the SV passed in as an argument to the filter read function. ----------------------------------------------------------------------- Summary of changes: toke.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/toke.c b/toke.c index 7ad492f..39b2e8a 100644 --- a/toke.c +++ b/toke.c @@ -12776,7 +12776,7 @@ S_utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen) dVAR; const STRLEN old = SvCUR(sv); const I32 count = FILTER_READ(idx+1, sv, maxlen); - const bool reverse = IoLINES(sv); + const bool reverse = IoLINES(FILTER_DATA(idx)); /* As we're automatically added, at the lowest level, and hence only called from this file, we can be sure that we're not called in block mode. Hence -- Perl5 Master Repository
