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 (file)
--- 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 <sburke@cpan.org>
 
 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 (file)
--- 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 (file)
--- 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