diff options
author | Karl Berry <karl@freefriends.org> | 2012-11-20 18:08:54 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-11-20 18:08:54 +0000 |
commit | c5add2ea5067382269ae6f19e345fda0b9a7bd21 (patch) | |
tree | 02f512fda46d93079c9dc59c0d76f0e398150f83 /Master/tlpkg/tlperl/lib/I18N | |
parent | 6c35e87bdc5a3f64833dbbc42e7d42e683db9d5b (diff) |
perl 5.16.2, compiled without optimization for Windows (from siep)
git-svn-id: svn://tug.org/texlive/trunk@28315 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/I18N')
-rw-r--r-- | Master/tlpkg/tlperl/lib/I18N/LangTags.pm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/Master/tlpkg/tlperl/lib/I18N/LangTags.pm b/Master/tlpkg/tlperl/lib/I18N/LangTags.pm index efc12c226d8..6815a8549c8 100644 --- a/Master/tlpkg/tlperl/lib/I18N/LangTags.pm +++ b/Master/tlpkg/tlperl/lib/I18N/LangTags.pm @@ -19,7 +19,7 @@ require Exporter; ); %EXPORT_TAGS = ('ALL' => \@EXPORT_OK); -$VERSION = "0.35_01"; +$VERSION = "0.38"; sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function @@ -579,16 +579,16 @@ tag ("ar") exists. Examples: - alternate_language_tags('no-bok') is ('nb') - alternate_language_tags('nb') is ('no-bok') - alternate_language_tags('he') is ('iw') - alternate_language_tags('iw') is ('he') - alternate_language_tags('i-hakka') is ('zh-hakka', 'x-hakka') - alternate_language_tags('zh-hakka') is ('i-hakka', 'x-hakka') - alternate_language_tags('en') is () - alternate_language_tags('x-mingo-tom') is ('i-mingo-tom') - alternate_language_tags('x-klikitat') is ('i-klikitat') - alternate_language_tags('i-klikitat') is ('x-klikitat') + alternate_language_tags('no-bok') is ('nb') + alternate_language_tags('nb') is ('no-bok') + alternate_language_tags('he') is ('iw') + alternate_language_tags('iw') is ('he') + alternate_language_tags('i-hakka') is ('zh-hakka', 'x-hakka') + alternate_language_tags('zh-hakka') is ('i-hakka', 'x-hakka') + alternate_language_tags('en') is () + alternate_language_tags('x-mingo-tom') is ('i-mingo-tom') + alternate_language_tags('x-klikitat') is ('i-klikitat') + alternate_language_tags('i-klikitat') is ('x-klikitat') This function returns empty-list if given anything other than a formally valid language tag. @@ -844,17 +844,17 @@ language tags with their ASCII characters shifted into Plane 14. * L<I18N::LangTags::List|I18N::LangTags::List> -* RFC 3066, C<ftp://ftp.isi.edu/in-notes/rfc3066.txt>, "Tags for the +* RFC 3066, C<http://www.ietf.org/rfc/rfc3066.txt>, "Tags for the Identification of Languages". (Obsoletes RFC 1766) -* RFC 2277, C<ftp://ftp.isi.edu/in-notes/rfc2277.txt>, "IETF Policy on +* RFC 2277, C<http://www.ietf.org/rfc/rfc2277.txt>, "IETF Policy on Character Sets and Languages". -* RFC 2231, C<ftp://ftp.isi.edu/in-notes/rfc2231.txt>, "MIME Parameter +* RFC 2231, C<http://www.ietf.org/rfc/rfc2231.txt>, "MIME Parameter Value and Encoded Word Extensions: Character Sets, Languages, and Continuations". -* RFC 2482, C<ftp://ftp.isi.edu/in-notes/rfc2482.txt>, +* RFC 2482, C<http://www.ietf.org/rfc/rfc2482.txt>, "Language Tagging in Unicode Plain Text". * Locale::Codes, in @@ -862,7 +862,7 @@ C<http://www.perl.com/CPAN/modules/by-module/Locale/> * ISO 639-2, "Codes for the representation of names of languages", including two-letter and three-letter codes, -C<http://www.loc.gov/standards/iso639-2/langcodes.html> +C<http://www.loc.gov/standards/iso639-2/php/code_list.php> * The IANA list of registered languages (hopefully up-to-date), C<http://www.iana.org/assignments/language-tags> |