From 2e2b25717dbde8d9ce48b4b8dc443e1d08166347 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 15 Feb 2012 11:31:27 -0700 Subject: 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. --- embed.h | 3 +++ 1 file changed, 3 insertions(+) (limited to 'embed.h') diff --git a/embed.h b/embed.h index d429c8d0ea..541309e42e 100644 --- a/embed.h +++ b/embed.h @@ -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) -- cgit v1.2.1