Clean up perl 5.15.7

This commit is contained in:
Samuel Tyler 2025-08-28 13:55:49 +10:00
parent a4616a9593
commit b574ae96f8
5 changed files with 19 additions and 48 deletions

View file

@ -1,3 +1,7 @@
# SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
#
# SPDX-License-Identifier: MIT
BUILD_ZLIB = False
INCLUDE = /usr/include
LIB = /usr/lib/i386-unknown-linux-musl

View file

@ -64,6 +64,7 @@ src_configure() {
-Dusedl=false \
-Ddate=':' \
-Dusedevel \
-Uversiononly \
-Dccflags="-U__DATE__ -U__TIME__" \
-Darchname="i386-linux" \
-Dmyhostname="(none)" \
@ -92,9 +93,6 @@ src_compile() {
src_install() {
default
# As this is a development version it does not install a perl symlink
ln -s perl5.15.7 "${DESTDIR}/${PREFIX}/bin/perl"
# Remove messed up manpages
rm "${DESTDIR}/"*.0
}

View file

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

@ -1,3 +1,10 @@
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
SPDX-License-Identifier: Artistic-1.0
The /r specifier is not supported in perl 5.14. Thankfully, it is
not necessary here.
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

View file

@ -1,3 +1,10 @@
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
SPDX-License-Identifier: Artistic-1.0
Older versions of Bison produced 4 spaces before `goto yyerrlab`,
but ours produces more.
--- 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 @@