This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
08f2910
)
In Locale::Maketext, avoid using defined @array and defined %hash.
author
Nicholas Clark
<nick@ccl4.org>
Fri, 23 Oct 2009 20:30:43 +0000
(21:30 +0100)
committer
Nicholas Clark
<nick@ccl4.org>
Fri, 23 Oct 2009 21:07:08 +0000
(22:07 +0100)
dist/Locale-Maketext/lib/Locale/Maketext.pm
patch
|
blob
|
blame
|
history
diff --git
a/dist/Locale-Maketext/lib/Locale/Maketext.pm
b/dist/Locale-Maketext/lib/Locale/Maketext.pm
index
eda9e97
..
1bfbbc9
100644
(file)
--- 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.1
3
';
+$VERSION = '1.1
4
';
@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!
}