Spell-check fixes in lib

[perl5.git] / lib / DBM_Filter.pm

diff --git a/lib/DBM_Filter.pm b/lib/DBM_Filter.pm
index 7385ddd..abcc127 100644 (file)
--- a/lib/DBM_Filter.pm
+++ b/lib/DBM_Filter.pm
@@ -2,7 +2,7 @@ package DBM_Filter ;
 
 use strict;
 use warnings;
-our $VERSION = '0.01';
+our $VERSION = '0.03';
 
 package Tie::Hash ;
 
@@ -91,14 +91,14 @@ sub _do_Filter_Push
         # if $class already contains "::", don't prefix "DBM_Filter::"
         $class = "DBM_Filter::$class" unless $class =~ /::/;
     
+        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 $@;
         }
     
-        no strict 'refs';
         my $fetch  = *{ "${class}::Fetch"  }{CODE};
         my $store  = *{ "${class}::Store"  }{CODE};
         my $filter = *{ "${class}::Filter" }{CODE};