This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_utf16_textfilter() was failing honour error returns from FILTER_READ()
authorNicholas Clark <nick@ccl4.org>
Wed, 21 Oct 2009 11:41:21 +0000 (12:41 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 21 Oct 2009 11:41:21 +0000 (12:41 +0100)
toke.c

diff --git a/toke.c b/toke.c
index 4031044..7ad492f 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -12789,7 +12789,7 @@ S_utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen)
                          reverse ? "rev" : "",
                          FPTR2DPTR(void *, S_utf16_textfilter),
                          idx, maxlen, (int) count));
-    if (count) {
+    if (count > 0) {
        U8* tmps;
        I32 newlen;
        Newx(tmps, SvCUR(sv) * 3 / 2 + 1, U8);