diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-23 21:33:27 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-23 22:07:07 +0100 |
| commit | 08f2910fedd8fc4c335b753d655fd4e769da3784 (patch) | |
| tree | 8c34c2138c8f7e05683bc96e5740360513d46a5d /dist/I18N-LangTags | |
| parent | d97c514e66a6aa9335c6b751c79bc90efa1a8715 (diff) | |
| download | perl-08f2910fedd8fc4c335b753d655fd4e769da3784.tar.gz | |
In I18N::LangTags::Detect, avoid using defined @array and defined %hash.
Diffstat (limited to 'dist/I18N-LangTags')
| -rw-r--r-- | dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm b/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm index 3f1b7c006a..87280b7b51 100644 --- a/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm +++ b/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm @@ -11,7 +11,7 @@ use vars qw( @ISA $VERSION $MATCH_SUPERS $USING_LANGUAGE_TAGS 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 around "require Modulename" 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! } |