Unicode::UCD.pm Add undocumented internal feature

This allows charprop() to be called on a Perl-internal-only property

diff --git a/charclass_invlists.h b/charclass_invlists.h
index 7530259..1598b80 100644 (file)
--- 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:
 #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
  * 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 (file)
--- 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 ();
 
 no warnings 'surrogate';    # surrogates can be inputs to this
 use charnames ();
 

-our $VERSION = '0.69';
+our $VERSION = '0.70';

 
 require Exporter;
 
 
 require Exporter;
 


@@ -699,14 +699,14 @@ that are internal-only.
 
 =cut
 
 
 =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)
 
     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);
     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 (file)
--- a/regcharclass.h
+++ b/regcharclass.h
@@ -1854,7 +1854,7 @@
 #endif /* PERL_REGCHARCLASS_H_ */
 
 /* Generated from:
 #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
  * ff4404ec64f308bdf7714c50f9fdf0d1d0bf3c34db4d0a67e58ef0c6f88e818f lib/unicore/ArabicShaping.txt
  * 292171a0a1c13d7e581e8781eb4cdf248243b1ab267354a63c7a14429dea2740 lib/unicore/BidiBrackets.txt
  * 8f2695cc42989a79a715ab0d2892bd0c998759180cfdfb998674447f48231940 lib/unicore/BidiMirroring.txt