X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBM_Filter.pm;h=8947c0c3d40c57819fd2f3c5ef10c358db22eddb;hb=ad91da88822a061453a454578ec2246dd493ffdd;hp=7385ddd3a3acb1c5913f39e8fa6e729174eb1d07;hpb=0e9b1cbd0a11bbc93e2b4fe899288c2d186c6460;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/DBM_Filter.pm b/lib/DBM_Filter.pm
index 7385ddd..8947c0c 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.01';
+our $VERSION = '0.02';
 
 package Tie::Hash ;
 
@@ -91,6 +91,7 @@ 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}::"} ) {
 	    # Nope, so try to load it.
@@ -98,7 +99,6 @@ sub _do_Filter_Push
             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};