Add perl 5.15.7

This commit is contained in:
Samuel Tyler 2025-08-21 22:06:52 +10:00
parent 8318056879
commit 1b6d89f9b4
8 changed files with 179 additions and 0 deletions

View file

@ -0,0 +1,45 @@
From b5bc060d03776870f3ead93e8c565069a66c2af9 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 18 Jun 2012 12:38:41 -0600
Subject: [PATCH] Unicode::UCD::prop_invlist() Allow to return internal
property
This creates an optional undocumented parameter to this function to
allow it to return the inversion list of an internal-only Perl property.
This will be used by other functions in Perl, but should not be
documented, as we don't want to encourage the use of internal-only
properties, which are subject to change or removal without notice.
---
lib/Unicode/UCD.pm | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git perl-5.15.7/lib/Unicode/UCD.pm perl-5.15.7/lib/Unicode/UCD.pm
index 17b4fead23..a809c21adc 100644
--- perl-5.15.7/lib/Unicode/UCD.pm
+++ perl-5.15.7/lib/Unicode/UCD.pm
@@ -1944,8 +1944,12 @@ properties, and will return C<undef> if called with one of those.
our %loose_defaults;
our $MAX_UNICODE_CODEPOINT;
-sub prop_invlist ($) {
+sub prop_invlist ($;$) {
my $prop = $_[0];
+
+ # Undocumented way to get at Perl internal properties
+ my $internal_ok = defined $_[1] && $_[1] eq '_perl_core_internal_ok';
+
return if ! defined $prop;
require "utf8_heavy.pl";
@@ -1962,7 +1966,7 @@ sub prop_invlist ($) {
|| ref $swash eq ""
|| $swash->{'BITS'} != 1
|| $swash->{'USER_DEFINED'}
- || $prop =~ /^\s*_/;
+ || (! $internal_ok && $prop =~ /^\s*_/);
if ($swash->{'EXTRAS'}) {
carp __PACKAGE__, "::prop_invlist: swash returned for $prop unexpectedly has EXTRAS magic";
--
2.49.1

View file

@ -0,0 +1,13 @@
diff --git perl-5.15.7/regen/mk_PL_charclass.pl perl-5.15.7/regen/mk_PL_charclass.pl
index a2f837fefc..f777ffe74d 100644
--- perl-5.15.7/regen/mk_PL_charclass.pl
+++ perl-5.15.7/regen/mk_PL_charclass.pl
@@ -64,7 +64,7 @@ while (<$fh>) {
# Lines look like (without the initial '#'
#0130; F; 0069 0307; # LATIN CAPITAL LETTER I WITH DOT ABOVE
# Get rid of comments, ignore blank or comment-only lines
- my $line = $_ =~ s/ (?: \s* \# .* )? $ //rx;
+ my $line = $_ =~ s/ (?: \s* \# .* )? $ //x;
next unless length $line;
my ($hex_from, $fold_type, @folded) = split /[\s;]+/, $line;

View file

@ -0,0 +1,11 @@
--- perl-5.15.7/x2p/Makefile.SH 2025-07-17 18:07:55.350717970 +1000
+++ perl-5.15.7/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 */|' \