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 {