defined @$foo and defined %$bar should be subject to strict 'refs';

p4raw-id: //depot/perl@29900

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/DBM_Filter.pm b/lib/DBM_Filter.pm
index 7385ddd3a3..8947c0c3d4 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};