From: Jarkko Hietaniemi Date: Thu, 21 Jun 2001 13:16:04 +0000 (+0000) Subject: Upgrade to I18N::LangTags 0.25. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4cf5bee0b6223ca6bfd85d5979411c964cfee21a;p=p5sagit%2Fp5-mst-13.2.git Upgrade to I18N::LangTags 0.25. p4raw-id: //depot/perl@10781 --- diff --git a/lib/I18N/LangTags.pm b/lib/I18N/LangTags.pm index 58f2464..8a8cb18 100644 --- a/lib/I18N/LangTags.pm +++ b/lib/I18N/LangTags.pm @@ -1,5 +1,5 @@ -# Time-stamp: "2001-06-20 01:28:32 MDT" +# Time-stamp: "2001-06-20 14:59:28 MDT" # Sean M. Burke require 5.000; @@ -17,7 +17,7 @@ require Exporter; ); %EXPORT_TAGS = ('ALL' => \@EXPORT_OK); -$VERSION = "0.24"; +$VERSION = "0.25"; =head1 NAME @@ -635,9 +635,12 @@ sub alternate_language_tags { # you. Because if I start trying to add "little languages" in # here, I'll just go crazy. - # In a pinch, consider Scandinavian languages (minus - # Icelandic?) to be mutually intelligible. - ([qw(no nn nb se da fo)]) x 2, + # Scandinavian lgs. All based on opinion and hearsay. + 'sv' => [qw(nb no da nn)], + 'da' => [qw(nb no sv nn)], # I guess + [qw(no nn nb)], [qw(no nn nb sv da)], + 'is' => [qw(da sv no nb nn)], + 'fo' => [qw(da is no nb nn sv)], # I guess # I think this is about the extent of tolerable intelligibility # among large modern Romance languages. diff --git a/lib/I18N/LangTags/ChangeLog b/lib/I18N/LangTags/ChangeLog index 55b84ac..6ea83f2 100644 --- a/lib/I18N/LangTags/ChangeLog +++ b/lib/I18N/LangTags/ChangeLog @@ -1,7 +1,13 @@ Revision history for Perl module I18N::LangTags. - Time-stamp: "2001-06-20 01:52:29 MDT" + Time-stamp: "2001-06-20 15:05:23 MDT" 2001-06-20 Sean M. Burke sburke@cpan.org + + * Release 0.25 -- just tweaking panic_languages behavior + for Scandinavian languages. Much better now. + Slight tweak to ::List's entries for Greek. + +2001-06-20 Sean M. Burke sburke@cpan.org * Release 0.24 diff --git a/lib/I18N/LangTags/List.pm b/lib/I18N/LangTags/List.pm index dec2a3f..a143d4c 100644 --- a/lib/I18N/LangTags/List.pm +++ b/lib/I18N/LangTags/List.pm @@ -1,7 +1,7 @@ require 5; package I18N::LangTags::List; -# Time-stamp: "2001-05-27 19:55:19 MDT" +# Time-stamp: "2001-06-20 12:01:15 MDT" use strict; use vars qw(%Name $Debug $VERSION); $VERSION = '0.24'; @@ -659,11 +659,13 @@ Notable forms: =item {grb} : Grebo -=item {grc} : Ancient Greek (to 1453) +=item {grc} : Ancient Greek -(Historical) +(Historical) (Until 15th century or so.) + +=item {el} : Modern Greek -=item {el} : Modern Greek (1453-) +(Since 15th century or so.) =item {gn} : Guarani