--- I18N-LangTags/lib/I18N/LangTags/Detect.pm +++ I18N-LangTags/lib/I18N/LangTags/Detect.pm @@ -11,7 +11,7 @@ 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 @@ 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! }