--- I18N-LangTags-0.35/lib/I18N/LangTags/Detect.pm	2004-06-21 05:47:55.000000000 +0000

+++ perl/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm	2009-10-23 21:07:07.000000000 +0000

@@ -11,7 +11,7 @@ use vars qw( @ISA $VERSION $MATCH_SUPERS

 BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } }

  # define the constant 'DEBUG' at compile-time

-$VERSION = "1.03";

+$VERSION = "1.04";

 @ISA = ();

 use I18N::LangTags qw(alternate_language_tags locale2language_tag);

@@ -137,7 +137,7 @@ sub _try_use {   # Basically a wrapper a

   my $module = $_[0];   # ASSUME sane module name!

   { no strict 'refs';

     return($tried{$module} = 1)

-     if defined(%{$module . "::Lexicon"}) or defined(@{$module . "::ISA"});

+     if %{$module . "::Lexicon"} or @{$module . "::ISA"};

     # weird case: we never use'd it, but there it is!

   }

--- I18N-LangTags-0.35/lib/I18N/LangTags/List.pm	2004-10-07 07:26:21.000000000 +0000

+++ perl/dist/I18N-LangTags/lib/I18N/LangTags/List.pm	2009-09-29 10:12:37.000000000 +0000

@@ -151,7 +151,7 @@ the language tag is syntactically valid

 syntactically invalid and for tags, like "aus", that are listed in

 brackets below.  This function is not exported.

-The map of tags-to-names that it uses is accessable as

+The map of tags-to-names that it uses is accessible as

 %I18N::LangTags::List::Name, and it's the same as the list

 that follows in this documentation, which should be useful

 to you even if you don't use this module.

--- I18N-LangTags-0.35/lib/I18N/LangTags.pm	2004-10-07 07:26:33.000000000 +0000

+++ perl/dist/I18N-LangTags/lib/I18N/LangTags.pm	2009-09-29 10:12:37.000000000 +0000

@@ -489,7 +489,7 @@ lookup in %greetings fails.  That's the

 You could instead do lookups on $wanted with:

           use I18N::LangTags qw(same_language_tag);

-          my $repsonse = '';

+          my $response = '';

           foreach my $l2 (keys %greetings) {

             if(same_language_tag($wanted, $l2)) {

               $response = $greetings{$l2};