diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm | 37 |
1 files changed, 26 insertions, 11 deletions
diff --git a/Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm b/Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm index 44e8f6da7f8..d17a17cf39a 100644 --- a/Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm +++ b/Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm @@ -1,7 +1,7 @@ package Locale::Codes::Constants; # Copyright (C) 2001 Canon Research Centre Europe (CRE). # Copyright (C) 2002-2009 Neil Bowers -# Copyright (c) 2010-2015 Sullivan Beck +# Copyright (c) 2010-2016 Sullivan Beck # This program is free software; you can redistribute it and/or modify it # under the same terms as Perl itself. @@ -17,12 +17,17 @@ require Exporter; our($VERSION,@ISA,@EXPORT); our(%ALL_CODESETS); -$VERSION='3.37'; +$VERSION='3.42'; @ISA = qw(Exporter); @EXPORT = qw(LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 LOCALE_CODE_NUMERIC LOCALE_CODE_DOM + LOCALE_CODE_UN_NUMERIC + LOCALE_CODE_UN_ALPHA_3 + LOCALE_CODE_GENC_ALPHA_2 + LOCALE_CODE_GENC_ALPHA_3 + LOCALE_CODE_GENC_NUMERIC LOCALE_LANG_ALPHA_2 LOCALE_LANG_ALPHA_3 @@ -47,17 +52,27 @@ $VERSION='3.37'; # Constants #----------------------------------------------------------------------- -use constant LOCALE_CODE_ALPHA_2 => 'alpha-2'; -use constant LOCALE_CODE_ALPHA_3 => 'alpha-3'; -use constant LOCALE_CODE_NUMERIC => 'numeric'; -use constant LOCALE_CODE_DOM => 'dom'; +use constant LOCALE_CODE_ALPHA_2 => 'alpha-2'; +use constant LOCALE_CODE_ALPHA_3 => 'alpha-3'; +use constant LOCALE_CODE_NUMERIC => 'numeric'; +use constant LOCALE_CODE_DOM => 'dom'; +use constant LOCALE_CODE_UN_ALPHA_3 => 'un-alpha-3'; +use constant LOCALE_CODE_UN_NUMERIC => 'un-numeric'; +use constant LOCALE_CODE_GENC_ALPHA_2 => 'genc-alpha-2'; +use constant LOCALE_CODE_GENC_ALPHA_3 => 'genc-alpha-3'; +use constant LOCALE_CODE_GENC_NUMERIC => 'genc-numeric'; $ALL_CODESETS{'country'} = { 'default' => 'alpha-2', - 'codesets' => { 'alpha-2' => ['lc'], - 'alpha-3' => ['lc'], - 'numeric' => ['numeric',3], - 'dom' => ['lc'], + 'codesets' => { 'alpha-2' => ['lc'], + 'alpha-3' => ['lc'], + 'numeric' => ['numeric',3], + 'dom' => ['lc'], + 'un-alpha-3' => ['uc'], + 'un-numeric' => ['numeric',3], + 'genc-alpha-2' => ['uc'], + 'genc-alpha-3' => ['uc'], + 'genc-numeric' => ['numeric',3], } }; @@ -126,5 +141,5 @@ $ALL_CODESETS{'langfam'} = { # cperl-continued-brace-offset: 0 # cperl-brace-offset: 0 # cperl-brace-imaginary-offset: 0 -# cperl-label-offset: -2 +# cperl-label-offset: 0 # End: |