diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-03 16:27:31 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-03 19:26:16 -0700 |
| commit | 272501f63b387e4545389d735ab1cec6cbb76cb6 (patch) | |
| tree | 5802e08cdffc23f5b70d6dfc0ce998d4f3064f28 | |
| parent | a441186611883aac7143f037e8e10d314482028c (diff) | |
| download | perl-272501f63b387e4545389d735ab1cec6cbb76cb6.tar.gz | |
mktables: Move some definitions to earlier
| -rw-r--r-- | lib/unicore/mktables | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index c0ad2f1248..095d5674c0 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -839,6 +839,10 @@ if ($v_version ge v5.2.0) { } } +# Enum values for to_output_map() method in the Map_Table package. +my $EXTERNAL_MAP = 1; +my $INTERNAL_MAP = 2; + # Properties that this program ignores. my @unimplemented_properties = ( 'Unicode_Radical_Stroke' # Remove if changing to handle this one. @@ -1072,10 +1076,6 @@ my $DEVELOPMENT_ONLY=<<"EOF"; EOF -# Enum values for to_output_map() method in the Map_Table package. -my $EXTERNAL_MAP = 1; -my $INTERNAL_MAP = 2; - my $LAST_UNICODE_CODEPOINT_STRING = "10FFFF"; my $LAST_UNICODE_CODEPOINT = hex $LAST_UNICODE_CODEPOINT_STRING; my $MAX_UNICODE_CODEPOINTS = $LAST_UNICODE_CODEPOINT + 1; |