SPDX-FileCopyrightText: 2025 Samuel Tyler <samuel@samuelt.me>
SPDX-FileCopyrightText: 2012 Karl Williamson <public@khwilliamson.com>

SPDX-License-Identifier: Artistic-1.0

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"

The symbol _Perl_Non_Final_Folds has not yet been added. Remove it for now,
it is not necessary for this build.

(It is unclear whether the inversion list changes affect the build, low
priority TODO check if removing it is necessary. Doesn't hurt to leave it in.)

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

