21 lines
712 B
Diff
21 lines
712 B
Diff
Index: PerlIO-utf8_strict-0.006/utf8_strict.xs
|
|
===================================================================
|
|
--- PerlIO-utf8_strict-0.006.orig/utf8_strict.xs
|
|
+++ PerlIO-utf8_strict-0.006/utf8_strict.xs
|
|
@@ -153,6 +153,7 @@ static STRLEN validate(pTHX_ const U8 *b
|
|
skip = skip_sequence(cur, end - cur);
|
|
PerlIOBase(handle)->flags |= PERLIO_F_ERROR;
|
|
report_illformed(aTHX_ cur, skip, eof);
|
|
+ return 0;
|
|
|
|
noncharacter:
|
|
if (v < 0xF0808080)
|
|
@@ -161,6 +162,7 @@ static STRLEN validate(pTHX_ const U8 *b
|
|
v = (v & 0x3F) | (v & 0x3F00) >> 2 | (v & 0x3F0000) >> 4 | (v & 0x07000000) >> 6;
|
|
PerlIOBase(handle)->flags |= PERLIO_F_ERROR;
|
|
report_noncharacter(aTHX_ v);
|
|
+ return 0;
|
|
}
|
|
|
|
typedef struct {
|