^^&&^^

Edit File: PerlDeci.pl

# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
# This file is machine-generated by lib/unicore/mktables from the Unicode
# database, Version 6.1.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
# name or existence of this file are subject to change without notice.  Don't
# use it directly.

# 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 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

return <<'END';
0030	0039	0
0660	0669	0
06F0	06F9	0
07C0	07C9	0
0966	096F	0
09E6	09EF	0
0A66	0A6F	0
0AE6	0AEF	0
0B66	0B6F	0
0BE6	0BEF	0
0C66	0C6F	0
0CE6	0CEF	0
0D66	0D6F	0
0E50	0E59	0
0ED0	0ED9	0
0F20	0F29	0
1040	1049	0
1090	1099	0
17E0	17E9	0
1810	1819	0
1946	194F	0
19D0	19D9	0
1A80	1A89	0
1A90	1A99	0
1B50	1B59	0
1BB0	1BB9	0
1C40	1C49	0
1C50	1C59	0
A620	A629	0
A8D0	A8D9	0
A900	A909	0
A9D0	A9D9	0
AA50	AA59	0
ABF0	ABF9	0
FF10	FF19	0
104A0	104A9	0
11066	1106F	0
110F0	110F9	0
11136	1113F	0
111D0	111D9	0
116C0	116C9	0
1D7CE	1D7D7	0
1D7D8	1D7E1	0
1D7E2	1D7EB	0
1D7EC	1D7F5	0
1D7F6	1D7FF	0
END