Add perl 5.16.3

This commit is contained in:
Samuel Tyler 2025-08-23 11:45:11 +10:00
parent 1b6d89f9b4
commit 22ba86b6c3
5 changed files with 155 additions and 0 deletions

View file

@ -0,0 +1,35 @@
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

View file

@ -0,0 +1,11 @@
--- perl-5.16.3/x2p/Makefile.SH 2025-07-17 18:07:55.350717970 +1000
+++ perl-5.16.3/x2p/Makefile.SH 2025-07-17 18:09:02.340711269 +1000
@@ -123,7 +123,7 @@
sed -e 's/(yyn = yydefred\[yystate\])/((yyn = yydefred[yystate]))/' \
-e 's/(yys = getenv("YYDEBUG"))/((yys = getenv("YYDEBUG")))/' \
-e 's/^yyerrlab://' \
- -e 's/^ goto yyerrlab;//' \
+ -e 's/^ *goto yyerrlab;//' \
-e 's/^yynewerror://' \
-e 's/^ goto yynewerror;//' \
-e 's|^static char yysccsid\(.*\)|/* static char yysccsid\1 */|' \