diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-23 21:29:49 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-23 22:07:06 +0100 |
| commit | 902fde96768bb39d4175218f674fe7b3c162dddd (patch) | |
| tree | 609b64405f3374ff463bb984a53f88ca54113553 | |
| parent | 09a3950ca54c536fb488a12c7d11f935e18e02d0 (diff) | |
| download | perl-902fde96768bb39d4175218f674fe7b3c162dddd.tar.gz | |
Avoid using defined %hash in core code and tests.
| -rw-r--r-- | ext/B/B/Concise.pm | 4 | ||||
| -rw-r--r-- | lib/DBM_Filter.pm | 4 | ||||
| -rw-r--r-- | t/op/magic.t | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 067d89ecec..671212d203 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/lib/DBM_Filter.pm b/lib/DBM_Filter.pm index 8947c0c3d4..abcc127ba0 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 6e3da5381c..975be11bb3 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -382,7 +382,7 @@ SKIP: { ok scalar eval q{ %!; - defined %Errno::; + scalar %Errno::; }, $@; } |