diff options
| author | Karl Williamson <khw@cpan.org> | 2017-02-13 12:35:18 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-02-13 21:24:08 -0700 |
| commit | efa571ab2dff0efcc97f14f98ed11f9296cd27a7 (patch) | |
| tree | 07a927f327e3eca743e6d792b548f1a9c78da827 /embed.h | |
| parent | 5d382c252dbb26302398c7fe38021a0f3c06b809 (diff) | |
| download | perl-efa571ab2dff0efcc97f14f98ed11f9296cd27a7.tar.gz | |
toke.c: Fix bugs where UTF-8 is turned on in mid chunk
Previous commits have tightened up the checking of UTF-8 for
well-formedness in the input program or string eval. This is done in
lex_next_chunk and lex_start. But it doesn't handle the case of
use utf8; foo
because 'foo' is checked while UTF-8 is still off. This solves that
problem by noticing when utf8 is turned on, and then rechecking at the
next opportunity.
See thread beginning at
http://nntp.perl.org/group/perl.perl5.porters/242916
This fixes [perl #130675]. A test will be added in a future commit
This catches some errors earlier than they used to be and aborts. so
some tests in the suite had to be split into multiple parts.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1351,6 +1351,7 @@ #define newXS_len_flags(a,b,c,d,e,f,g) Perl_newXS_len_flags(aTHX_ a,b,c,d,e,f,g) #define nextargv(a,b) Perl_nextargv(aTHX_ a,b) #define noperl_die Perl_noperl_die +#define notify_parser_that_changed_to_utf8() Perl_notify_parser_that_changed_to_utf8(aTHX) #define oopsAV(a) Perl_oopsAV(aTHX_ a) #define oopsHV(a) Perl_oopsHV(aTHX_ a) #define op_unscope(a) Perl_op_unscope(aTHX_ a) |