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 /lib/DBM_Filter.pm | |
| parent | 09a3950ca54c536fb488a12c7d11f935e18e02d0 (diff) | |
| download | perl-902fde96768bb39d4175218f674fe7b3c162dddd.tar.gz | |
Avoid using defined %hash in core code and tests.
Diffstat (limited to 'lib/DBM_Filter.pm')
| -rw-r--r-- | lib/DBM_Filter.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 $@; |