In C<use utf8; a=>'b'>, do not set utf8 flag on 'a' [perl #68812]

[p5sagit/p5-mst-13.2.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 3f9ddcd..3e829b6 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -481,6 +481,7 @@ ApPR        |bool   |is_uni_lower_lc|UV c
 ApPR   |bool   |is_uni_print_lc|UV c
 ApPR   |bool   |is_uni_punct_lc|UV c
 ApPR   |bool   |is_uni_xdigit_lc|UV c
+Apd    |bool   |is_ascii_string|NN const U8 *s|STRLEN len
 Apd    |STRLEN |is_utf8_char   |NN const U8 *s
 Apd    |bool   |is_utf8_string |NN const U8 *s|STRLEN len
 Apdmb  |bool   |is_utf8_string_loc|NN const U8 *s|STRLEN len|NULLOK const U8 **p