diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-02-13 18:48:59 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-02-15 18:02:34 -0700 |
| commit | 9a022f3a9e4bafe265086ebafcf8f6990108aa57 (patch) | |
| tree | 4e6969ba7f199c46d290538a1743ec348ff66254 /regen | |
| parent | 674b7f6d42d69aa4f944885374fa73aa9b1ae113 (diff) | |
| download | perl-9a022f3a9e4bafe265086ebafcf8f6990108aa57.tar.gz | |
l1_char_class_tab.h: Add field for quotemeta
This changes this header to include a bit for each character indicating
if it should be quoted by quotemeta under unicode_strings
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_PL_charclass.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index a2f837fefc..b903fbe1f0 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -52,6 +52,7 @@ my @properties = qw( WORDCHAR_A WORDCHAR_L1 XDIGIT_A + QUOTEMETA ); # Read in the case fold mappings. @@ -139,6 +140,8 @@ for my $ord (0..255) { $re = qr/\p{Alnum}/; } elsif ($name eq 'OCTAL') { $re = qr/[0-7]/; + } elsif ($name eq 'QUOTEMETA') { + $re = qr/\p{_Perl_Quotemeta}/; } else { # The remainder have the same name and values as Unicode $re = eval "qr/\\p{$name}/"; use Carp; |