diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-02-15 11:31:27 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-02-15 18:02:35 -0700 |
| commit | 2e2b25717dbde8d9ce48b4b8dc443e1d08166347 (patch) | |
| tree | ca10f48aa5a2fa0549aebebed4109a9d8c59aa24 /proto.h | |
| parent | adfec83175578461303ab5cfcc90d37cb3114126 (diff) | |
| download | perl-2e2b25717dbde8d9ce48b4b8dc443e1d08166347.tar.gz | |
perl #77654: quotemeta quotes non-ASCII consistently
As described in the pod changes in this commit, this changes quotemeta()
to consistenly quote non-ASCII characters when used under
unicode_strings. The behavior is changed for these and UTF-8 encoded
strings to more closely align with Unicode's recommendations.
The end result is that we *could* at some future point start using other
characters as metacharacters than the 12 we do now.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -7154,6 +7154,12 @@ STATIC U8 S_to_lower_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp) #endif #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C) +PERL_CALLCONV bool Perl__is_utf8_quotemeta(pTHX_ const U8 *p) + __attribute__warn_unused_result__ + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT__IS_UTF8_QUOTEMETA \ + assert(p) + PERL_CALLCONV UV Perl__to_upper_title_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp, const char S_or_s) __attribute__nonnull__(pTHX_2) __attribute__nonnull__(pTHX_3); |