mirror of
https://github.com/fosslinux/live-bootstrap.git
synced 2026-03-22 11:06:32 +01:00
Set up 5.24 to build 5.30
This commit is contained in:
parent
97f6ac66ec
commit
81c9bf1a6e
5 changed files with 42 additions and 35 deletions
|
|
@ -0,0 +1,35 @@
|
|||
From 00616fe6cbb2f183bdc8fa035d4730261733e732 Mon Sep 17 00:00:00 2001
|
||||
From: Karl Williamson <khw@cpan.org>
|
||||
Date: Sat, 23 Dec 2017 14:45:02 -0700
|
||||
Subject: [PATCH] Unicode::UCD.pm Add undocumented internal feature
|
||||
|
||||
This allows charprop() to be called on a Perl-internal-only property
|
||||
---
|
||||
lib/Unicode/UCD.pm | 6 +++---
|
||||
1 file changed, 3 insertions(+), 3 deletions(-)
|
||||
|
||||
diff --git perl-5.24.4/lib/Unicode/UCD.pm perl-5.24.4/lib/Unicode/UCD.pm
|
||||
index 13c2c78598..b5125bd506 100644
|
||||
--- perl-5.24.4/lib/Unicode/UCD.pm
|
||||
+++ perl-5.24.4/lib/Unicode/UCD.pm
|
||||
@@ -694,14 +694,14 @@ that are internal-only.
|
||||
|
||||
=cut
|
||||
|
||||
-sub charprop ($$) {
|
||||
- my ($input_cp, $prop) = @_;
|
||||
+sub charprop ($$;$) {
|
||||
+ my ($input_cp, $prop, $internal_ok) = @_;
|
||||
|
||||
my $cp = _getcode($input_cp);
|
||||
croak __PACKAGE__, "::charprop: unknown code point '$input_cp'" unless defined $cp;
|
||||
|
||||
my ($list_ref, $map_ref, $format, $default)
|
||||
- = prop_invmap($prop);
|
||||
+ = prop_invmap($prop, $internal_ok);
|
||||
return undef unless defined $list_ref;
|
||||
|
||||
my $i = search_invlist($list_ref, $cp);
|
||||
--
|
||||
2.49.1
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue