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 /embed.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 'embed.h')
| -rw-r--r-- | embed.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -781,6 +781,9 @@ #define warn_nocontext Perl_warn_nocontext #define warner_nocontext Perl_warner_nocontext #endif +#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C) +#define _is_utf8_quotemeta(a) Perl__is_utf8_quotemeta(aTHX_ a) +#endif #if defined(PERL_MAD) #define newFORM(a,b,c) Perl_newFORM(aTHX_ a,b,c) #define newMYSUB(a,b,c,d,e) Perl_newMYSUB(aTHX_ a,b,c,d,e) |