mirror of
https://github.com/fosslinux/live-bootstrap.git
synced 2026-03-02 01:18:08 +01:00
35 lines
1.2 KiB
Diff
35 lines
1.2 KiB
Diff
From c7c816ac94667bf4ed1e6185ed79a70aeabaee97 Mon Sep 17 00:00:00 2001
|
|
From: Samuel Tyler <fosslinux@aussies.space>
|
|
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
|
|
|