--- 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};