diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-23 21:30:43 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-23 22:07:08 +0100 |
| commit | 9e20cf84778bac51ffe94978daf563a46792580a (patch) | |
| tree | 63b9d0d4a71c211d2db6cc24e560ab04fe1af0ea /dist | |
| parent | 08f2910fedd8fc4c335b753d655fd4e769da3784 (diff) | |
| download | perl-9e20cf84778bac51ffe94978daf563a46792580a.tar.gz | |
In Locale::Maketext, avoid using defined @array and defined %hash.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Locale-Maketext/lib/Locale/Maketext.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/Locale-Maketext/lib/Locale/Maketext.pm b/dist/Locale-Maketext/lib/Locale/Maketext.pm index eda9e97b1b..1bfbbc9bba 100644 --- a/dist/Locale-Maketext/lib/Locale/Maketext.pm +++ b/dist/Locale-Maketext/lib/Locale/Maketext.pm @@ -10,7 +10,7 @@ use I18N::LangTags 0.30 (); BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } } # define the constant 'DEBUG' at compile-time -$VERSION = '1.13'; +$VERSION = '1.14'; @ISA = (); $MATCH_SUPERS = 1; @@ -401,7 +401,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! } |