From 9a022f3a9e4bafe265086ebafcf8f6990108aa57 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 13 Feb 2012 18:48:59 -0700
Subject: 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
---
 regen/mk_PL_charclass.pl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'regen')

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;
-- 
cgit v1.2.1