toke.c: Fix bugs where UTF-8 is turned on in mid chunk

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index 7ec7849..076df94 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2331,6 +2331,7 @@ PERL_CALLCONV_NO_RET void Perl_noperl_die(const char* pat, ...)
        assert(pat)
 
 PERL_CALLCONV int      Perl_nothreadhook(pTHX);
+PERL_CALLCONV void     Perl_notify_parser_that_changed_to_utf8(pTHX);
 PERL_CALLCONV OP*      Perl_oopsAV(pTHX_ OP* o)
                        __attribute__warn_unused_result__;
 #define PERL_ARGS_ASSERT_OOPSAV        \