mirror of
https://github.com/fosslinux/live-bootstrap.git
synced 2026-03-20 02:02:58 +01:00
Add perl 5.15.7
This commit is contained in:
parent
8318056879
commit
1b6d89f9b4
8 changed files with 179 additions and 0 deletions
|
|
@ -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
|
||||
|
||||
13
steps/perl-5.15.7/patches/5.14_mk_PL_charclass.patch
Normal file
13
steps/perl-5.15.7/patches/5.14_mk_PL_charclass.patch
Normal 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;
|
||||
|
||||
11
steps/perl-5.15.7/patches/a2p-c-bison.patch
Normal file
11
steps/perl-5.15.7/patches/a2p-c-bison.patch
Normal 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 */|' \
|
||||
Loading…
Add table
Add a link
Reference in a new issue