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 /proto.h | |
| 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 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -1281,6 +1281,11 @@ PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ UV c) __attribute__warn_unused_result__ __attribute__pure__; +PERL_CALLCONV bool Perl_is_ascii_string(pTHX_ const U8 *s, STRLEN len) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_IS_ASCII_STRING \ + assert(s) + PERL_CALLCONV STRLEN Perl_is_utf8_char(pTHX_ const U8 *s) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_IS_UTF8_CHAR \ |