In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9e20cf84778bac51ffe94978daf563a46792580a?hp=09a3950ca54c536fb488a12c7d11f935e18e02d0>
- Log ----------------------------------------------------------------- commit 9e20cf84778bac51ffe94978daf563a46792580a Author: Nicholas Clark <[email protected]> Date: Fri Oct 23 21:30:43 2009 +0100 In Locale::Maketext, avoid using defined @array and defined %hash. M dist/Locale-Maketext/lib/Locale/Maketext.pm commit 08f2910fedd8fc4c335b753d655fd4e769da3784 Author: Nicholas Clark <[email protected]> Date: Fri Oct 23 21:33:27 2009 +0100 In I18N::LangTags::Detect, avoid using defined @array and defined %hash. M dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm commit d97c514e66a6aa9335c6b751c79bc90efa1a8715 Author: Nicholas Clark <[email protected]> Date: Fri Oct 23 21:30:18 2009 +0100 Avoid using defined @array in core tests. M ext/SDBM_File/t/sdbm.t commit 902fde96768bb39d4175218f674fe7b3c162dddd Author: Nicholas Clark <[email protected]> Date: Fri Oct 23 21:29:49 2009 +0100 Avoid using defined %hash in core code and tests. M ext/B/B/Concise.pm M lib/DBM_Filter.pm M t/op/magic.t ----------------------------------------------------------------------- Summary of changes: dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm | 4 ++-- dist/Locale-Maketext/lib/Locale/Maketext.pm | 4 ++-- ext/B/B/Concise.pm | 4 ++-- ext/SDBM_File/t/sdbm.t | 2 +- lib/DBM_Filter.pm | 4 ++-- t/op/magic.t | 2 +- 6 files changed, 10 insertions(+), 10 deletions(-) diff --git a/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm b/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm index 3f1b7c0..87280b7 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! } diff --git a/dist/Locale-Maketext/lib/Locale/Maketext.pm b/dist/Locale-Maketext/lib/Locale/Maketext.pm index eda9e97..1bfbbc9 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! } diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 067d89e..671212d 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -14,7 +14,7 @@ use warnings; # uses #3 and #4, since warnings uses Carp use Exporter (); # use #5 -our $VERSION = "0.77"; +our $VERSION = "0.78"; our @ISA = qw(Exporter); our @EXPORT_OK = qw( set_style set_style_standard add_callback concise_subref concise_cv concise_main @@ -299,7 +299,7 @@ sub compileOpts { elsif ($o =~ /^-stash=(.*)/) { my $pkg = $1; no strict 'refs'; - if (!defined %{$pkg.'::'}) { + if (! %{$pkg.'::'}) { eval "require $pkg"; } else { require Config; diff --git a/ext/SDBM_File/t/sdbm.t b/ext/SDBM_File/t/sdbm.t index 7021281..60423d9 100644 --- a/ext/SDBM_File/t/sdbm.t +++ b/ext/SDBM_File/t/sdbm.t @@ -155,7 +155,7 @@ print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n"); require Exporter ; use SDBM_File; @ISA=qw(SDBM_File); - @EXPORT = @SDBM_File::EXPORT if defined @SDBM_File::EXPORT ; + @EXPORT = @SDBM_File::EXPORT if @SDBM_File::EXPORT ; sub STORE { my $self = shift ; diff --git a/lib/DBM_Filter.pm b/lib/DBM_Filter.pm index 8947c0c..abcc127 100644 --- a/lib/DBM_Filter.pm +++ b/lib/DBM_Filter.pm @@ -2,7 +2,7 @@ package DBM_Filter ; use strict; use warnings; -our $VERSION = '0.02'; +our $VERSION = '0.03'; package Tie::Hash ; @@ -93,7 +93,7 @@ sub _do_Filter_Push no strict 'refs'; # does the "DBM_Filter::$class" exist? - if ( ! defined %{ "${class}::"} ) { + if ( ! %{ "${class}::"} ) { # Nope, so try to load it. eval " require $class ; " ; croak "$caller: Cannot Load DBM Filter '$class': $@" if $@; diff --git a/t/op/magic.t b/t/op/magic.t index 6e3da53..975be11 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -382,7 +382,7 @@ SKIP: { ok scalar eval q{ %!; - defined %Errno::; + scalar %Errno::; }, $@; } -- Perl5 Master Repository
