mirror of
https://github.com/fosslinux/live-bootstrap.git
synced 2026-03-19 17:53:00 +01:00
53 lines
2.2 KiB
Diff
53 lines
2.2 KiB
Diff
SPDX-FileCopyrightText: 2025 Samuel Tyler <samuel@samuelt.me>
|
|
SPDX-FileCopyrightText: 2012 Karl Williamson <public@khwilliamson.com>
|
|
|
|
SPDX-License-Identifier: Artistic-1.0
|
|
|
|
This symbol goes unused in this commit, but the next version of perl
|
|
that we build changed the name of the symbol, so rename it here by
|
|
backporting this patch.
|
|
|
|
Only the part of the patch changing the name is used. The other two
|
|
modifications in the original patch change the use of the symbol
|
|
which obviously does not apply to this build.
|
|
|
|
From b79624bd711790796036524d5fc46521233cf85f Mon Sep 17 00:00:00 2001
|
|
From: Karl Williamson <public@khwilliamson.com>
|
|
Date: Sun, 16 Dec 2012 11:50:34 -0700
|
|
Subject: [PATCH] Rename property involved in \X matching, for clarity
|
|
|
|
I was re-reading some code and got confused. This table matches just
|
|
the first character of a sequence that may or may not contain others.
|
|
---
|
|
lib/unicore/mktables | 8 ++++----
|
|
3 files changed, 9 insertions(+), 9 deletions(-)
|
|
|
|
diff --git perl-5.17.4/lib/unicore/mktables perl-5.17.4/lib/unicore/mktables
|
|
index e779b08e8e..b9dc1df.17 100644
|
|
--- perl-5.17.4/lib/unicore/mktables
|
|
+++ perl-5.17.4/lib/unicore/mktables
|
|
@@ -13551,7 +13551,7 @@ sub compile_perl() {
|
|
push @tables_that_may_be_empty, $ri->full_name;
|
|
}
|
|
|
|
- my $specials_begin = $perl->add_match_table('_X_Special_Begin',
|
|
+ my $specials_begin = $perl->add_match_table('_X_Special_Begin_Start',
|
|
Perl_Extension => 1,
|
|
Fate => $INTERNAL_ONLY,
|
|
Initialize => $lv_lvt_v
|
|
@@ -13560,9 +13560,9 @@ sub compile_perl() {
|
|
+ $ri
|
|
);
|
|
$specials_begin->add_comment(join_lines( <<END
|
|
-For use in \\X; matches first character of potential multi-character
|
|
-sequences that can begin an extended grapheme cluster. They need special
|
|
-handling because of their complicated nature.
|
|
+For use in \\X; matches first (perhaps only) character of potential
|
|
+multi-character sequences that can begin an extended grapheme cluster. They
|
|
+need special handling because of their complicated nature.
|
|
END
|
|
));
|
|
my $regular_begin = $perl->add_match_table('_X_Regular_Begin',
|
|
--
|
|
2.49.1
|
|
|