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.fnc | |
| 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.fnc')
| -rw-r--r-- | embed.fnc | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -608,6 +608,7 @@ p |UV |_to_fold_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const bool flags #endif #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C) p |UV |_to_upper_title_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const char S_or_s +ApR |bool |_is_utf8_quotemeta|NN const U8 *p #endif Ap |UV |to_uni_lower |UV c|NN U8 *p|NN STRLEN *lenp Amp |UV |to_uni_fold |UV c|NN U8 *p|NN STRLEN *lenp |