diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/unicore/To/PerlDeci.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/unicore/To/PerlDeci.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/unicore/To/PerlDeci.pl b/Master/tlpkg/tlperl/lib/unicore/To/PerlDeci.pl index a7f0c7b4f90..48ff4beacf1 100644 --- a/Master/tlpkg/tlperl/lib/unicore/To/PerlDeci.pl +++ b/Master/tlpkg/tlperl/lib/unicore/To/PerlDeci.pl @@ -1,6 +1,6 @@ # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by ..\lib\unicore\mktables from the Unicode -# database, Version 12.1.0. Any changes made here will be lost! +# database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the @@ -12,11 +12,11 @@ # The mappings must be modified to get the correct values by adding the code # point ordinal number to each one that is numeric. -# The name this swash is to be known by, with the format of the mappings in +# The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. -$utf8::SwashInfo{'ToPerlDecimalDigit'}{'format'} = 'a'; # some entries need adjustment -$utf8::SwashInfo{'ToPerlDecimalDigit'}{'missing'} = ''; # code point maps to the null string +$Unicode::UCD::SwashInfo{'ToPerlDecimalDigit'}{'format'} = 'a'; # some entries need adjustment +$Unicode::UCD::SwashInfo{'ToPerlDecimalDigit'}{'missing'} = ''; # code point maps to the null string return <<'END'; 30 39 0 @@ -69,6 +69,7 @@ FF10 FF19 0 116C0 116C9 0 11730 11739 0 118E0 118E9 0 +11950 11959 0 11C50 11C59 0 11D50 11D59 0 11DA0 11DA9 0 @@ -82,4 +83,5 @@ FF10 FF19 0 1E140 1E149 0 1E2F0 1E2F9 0 1E950 1E959 0 +1FBF0 1FBF9 0 END |