kylekrein/live-bootstrap
1
0
Fork 0
mirror of https://github.com/fosslinux/live-bootstrap.git synced 2026-03-24 20:16:32 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup 5.22 and 5.24

Browse source
This commit is contained in:
Samuel Tyler 2025-09-01 11:34:43 +10:00
parent 654e317725
commit 97f6ac66ec
6 changed files with 188 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

35
steps/perl-5.24.4/patches/0001-Revert-regen-mk_PL_charclass.pl-Suppress-extra-null-.patch Normal file
View file

@ -0,0 +1,35 @@
SPDX-FileCopyrightText: 2015 Karl Williamson <public@khwilliamson.com>
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
SPDX-License-Identifier: Artistic-1.0
This commit does not affect correctness of the script, and negative indexes are
not supported in Perl 5.22.
From c5ea74f1efd612cda79d6ba3cb1430afdc2ab970 Mon Sep 17 00:00:00 2001
From: Samuel Tyler <fosslinux@aussies.space>
Date: Sun, 31 Aug 2025 12:21:46 +1000
Subject: [PATCH] Revert "regen/mk_PL_charclass.pl: Suppress extra null array
element"
This reverts commit e8368231412c57222c53c0dc1fac7f711fa051e2.
---
regen/mk_PL_charclass.pl | 2 --
1 file changed, 2 deletions(-)
diff --git perl-5.24.4/regen/mk_PL_charclass.pl perl-5.24.4/regen/mk_PL_charclass.pl
index 5b609e530b..0bee1ac2a0 100644
--- perl-5.24.4/regen/mk_PL_charclass.pl
+++ perl-5.24.4/regen/mk_PL_charclass.pl
@@ -384,8 +384,6 @@ foreach my $charset (get_supported_code_pages()) {
$out[$index] .= ",\n";
}
- $out[-1] =~ s/,$//; # No trailing comma in the final entry
-
print $out_fh join "", @out;
print $out_fh "\n" . get_conditional_compile_line_end();
}
--
2.49.1

51
steps/perl-5.24.4/patches/0002-Revert-regen-regcharclass.pl-avoid-autoderef-feature.patch Normal file
View file

@ -0,0 +1,51 @@
SPDX-FileCopyrightText: 2015 Aaron Crane <arc@cpan.org>
SPDX-FileCopyrightText: 2025 fosslinux <fosslinux@aussies.space>
SPDX-License-Identifier: Artistic-1.0
The patch avoided autoderef experimental feature by using a new,
non-experimental feature not supported in Perl 5.22.
From dbec508168fd65dae2aff413fe5184f5f457779d Mon Sep 17 00:00:00 2001
From: Samuel Tyler <fosslinux@aussies.space>
Date: Sun, 31 Aug 2025 14:45:48 +1000
Subject: [PATCH] Revert "regen/regcharclass.pl: avoid autoderef feature"
This reverts commit de6cb0abd243e5772b9783a2cbeef5755a8267d6.
---
regen/regcharclass.pl | 5 +++--
2 files changed, 9 insertions(+), 2 deletions(-)
diff --git perl-5.24.4/regen/regcharclass.pl perl-5.24.4/regen/regcharclass.pl
index 9115eafeb6..279ca013d0 100755
--- perl-5.24.4/regen/regcharclass.pl
+++ perl-5.24.4/regen/regcharclass.pl
@@ -4,6 +4,7 @@ use strict;
use 5.008;
use warnings;
use warnings FATAL => 'all';
+no warnings 'experimental::autoderef';
use Data::Dumper;
$Data::Dumper::Useqq= 1;
our $hex_fmt= "0x%02X";
@@ -874,7 +875,7 @@ sub calculate_mask(@) {
my @final_results;
foreach my $count (reverse sort { $a <=> $b } keys %hash) {
my $need = 2 ** $count; # Need 8 values for 3 differing bits, etc
- foreach my $bits (sort keys $hash{$count}->%*) {
+ foreach my $bits (sort keys $hash{$count}) {
print STDERR __LINE__, ": For $count bit(s) difference ($bits), need $need; have ", scalar @{$hash{$count}{$bits}}, "\n" if DEBUG;
@@ -962,7 +963,7 @@ sub calculate_mask(@) {
# individually.
my @individuals;
foreach my $count (reverse sort { $a <=> $b } keys %hash) {
- foreach my $bits (sort keys $hash{$count}->%*) {
+ foreach my $bits (sort keys $hash{$count}) {
foreach my $remaining (@{$hash{$count}{$bits}}) {
# If we already know about this value, just ignore it.
--
2.49.1