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 /intrpvar.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 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 473c952e23..273da46abc 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -641,6 +641,7 @@ PERLVAR(I, utf8_toupper, SV *) PERLVAR(I, utf8_totitle, SV *) PERLVAR(I, utf8_tolower, SV *) PERLVAR(I, utf8_tofold, SV *) +PERLVAR(I, utf8_quotemeta, SV *) PERLVAR(I, last_swash_hv, HV *) PERLVAR(I, last_swash_tmps, U8 *) PERLVAR(I, last_swash_slen, STRLEN) |