From c7c816ac94667bf4ed1e6185ed79a70aeabaee97 Mon Sep 17 00:00:00 2001 From: Samuel Tyler Date: Thu, 21 Aug 2025 21:53:47 +1000 Subject: [PATCH] Revert "l1_char_class_tab.h: Add field for quotemeta" This reverts commit 9a022f3a9e4bafe265086ebafcf8f6990108aa57. --- l1_char_class_tab.h | 234 +++++++++++++++++++-------------------- regen/mk_PL_charclass.pl | 3 - 2 files changed, 117 insertions(+), 120 deletions(-) diff --git perl-5.16.3/regen/mk_PL_charclass.pl perl-5.16.3/regen/mk_PL_charclass.pl index b903fbe1f0..a2f837fefc 100644 --- perl-5.16.3/regen/mk_PL_charclass.pl +++ perl-5.16.3/regen/mk_PL_charclass.pl @@ -52,7 +52,6 @@ my @properties = qw( WORDCHAR_A WORDCHAR_L1 XDIGIT_A - QUOTEMETA ); # Read in the case fold mappings. @@ -140,8 +139,6 @@ 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; -- 2.49.1