From 7b95de1590e1014fd6f742fa5dda8d82b845c736 Mon Sep 17 00:00:00 2001 From: Karl Williamson 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 --- charclass_invlists.h | 2 +- lib/Unicode/UCD.pm | 8 ++++---- regcharclass.h | 2 +- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/charclass_invlists.h b/charclass_invlists.h index 7530259..1598b80 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -97386,7 +97386,7 @@ static const U8 WB_table[24][24] = { #endif /* defined(PERL_IN_REGEXEC_C) */ /* Generated from: - * 3d90f60be77f44dea803ca765001cbcbe92d7e0044c7ebbbd120893410ce7bd7 lib/Unicode/UCD.pm + * 251db67a0c884878c52e063af87b61d8b6e86f23ca6c8032877069b8ebf8e5cb lib/Unicode/UCD.pm * ff4404ec64f308bdf7714c50f9fdf0d1d0bf3c34db4d0a67e58ef0c6f88e818f lib/unicore/ArabicShaping.txt * 292171a0a1c13d7e581e8781eb4cdf248243b1ab267354a63c7a14429dea2740 lib/unicore/BidiBrackets.txt * 8f2695cc42989a79a715ab0d2892bd0c998759180cfdfb998674447f48231940 lib/unicore/BidiMirroring.txt diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index 42d376e..ca0f400 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/Unicode/UCD.pm @@ -5,7 +5,7 @@ use warnings; no warnings 'surrogate'; # surrogates can be inputs to this use charnames (); -our $VERSION = '0.69'; +our $VERSION = '0.70'; require Exporter; @@ -699,14 +699,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); diff --git a/regcharclass.h b/regcharclass.h index 665b190..b5b9934 100644 --- a/regcharclass.h +++ b/regcharclass.h @@ -1854,7 +1854,7 @@ #endif /* PERL_REGCHARCLASS_H_ */ /* Generated from: - * 3d90f60be77f44dea803ca765001cbcbe92d7e0044c7ebbbd120893410ce7bd7 lib/Unicode/UCD.pm + * 251db67a0c884878c52e063af87b61d8b6e86f23ca6c8032877069b8ebf8e5cb lib/Unicode/UCD.pm * ff4404ec64f308bdf7714c50f9fdf0d1d0bf3c34db4d0a67e58ef0c6f88e818f lib/unicore/ArabicShaping.txt * 292171a0a1c13d7e581e8781eb4cdf248243b1ab267354a63c7a14429dea2740 lib/unicore/BidiBrackets.txt * 8f2695cc42989a79a715ab0d2892bd0c998759180cfdfb998674447f48231940 lib/unicore/BidiMirroring.txt -- 1.8.3.1