diff options
| author | Chip Salzenberg <chip@pobox.com> | 2009-08-26 14:33:15 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2009-08-26 14:33:15 -0700 |
| commit | eaf7a4d2ee7805b14e26e634fba0893913924a6c (patch) | |
| tree | 4c932a2ae4599ff971a6e2b488ea8208d2510182 /toke.c | |
| parent | 8ff3e83ba54cff6118a4f9fd629260c21194f290 (diff) | |
| download | perl-eaf7a4d2ee7805b14e26e634fba0893913924a6c.tar.gz | |
In C<use utf8; a=>'b'>, do not set utf8 flag on 'a' [perl #68812]
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1384,7 +1384,9 @@ S_newSV_maybe_utf8(pTHX_ const char *const start, STRLEN len) { dVAR; SV * const sv = newSVpvn_utf8(start, len, - UTF && !IN_BYTES + !IN_BYTES + && UTF + && !is_ascii_string((const U8*)start, len) && is_utf8_string((const U8*)start, len)); return sv; } |