live-bootstrap/steps/perl-5.17.2/patches/0001-Revert-regen-mk_invlists.pl-Fail-if-inversion-list-n.patch
2025-10-06 12:21:26 +11:00

34 lines
1.1 KiB
Diff

From deca90bb9a589cdd796fae47d1dbe9d680f8884b Mon Sep 17 00:00:00 2001
From: Samuel Tyler <fosslinux@aussies.space>
Date: Fri, 22 Aug 2025 22:36:34 +1000
Subject: [PATCH] Revert "regen/mk_invlists.pl: Fail if inversion list not
found"
This reverts commit ad89228c5b795cc268ecf73cf29290f8bc70e979.
---
regen/mk_invlists.pl | 2 --
1 file changed, 2 deletions(-)
diff --git perl-5.17.2/regen/mk_invlists.pl perl-5.17.2/regen/mk_invlists.pl
index 65d6995285..6eefbe7f15 100644
--- perl-5.17.2/regen/mk_invlists.pl
+++ perl-5.17.2/regen/mk_invlists.pl
@@ -126,7 +126,6 @@ for my $prop (qw(
L1PosixWord
PosixXDigit
XPosixXDigit
- _Perl_Non_Final_Folds
)
) {
@@ -146,7 +145,6 @@ for my $prop (qw(
my $lookup_prop = $prop;
$lookup_prop =~ s/^L1Posix/XPosix/ or $lookup_prop =~ s/^L1//;
my @invlist = prop_invlist($lookup_prop);
- die "Could not find inversion list for '$lookup_prop'" unless @invlist;
if ($lookup_prop ne $prop) {
for my $i (0 .. @invlist - 1 - 1) {
--
2.49.1