X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMemoize%2FAnyDBM_File.pm;h=91f960962f959ddedb7a82a41e87b19571d46c3a;hb=011f1a1a00b94fe919083a224d5df636f05ae32a;hp=d634f40dca085cac5ce97ff223da6325dd13910b;hpb=9038e305e40aa7aacfc52a55cb7265c4f175011b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Memoize/AnyDBM_File.pm b/lib/Memoize/AnyDBM_File.pm
index d634f40..91f9609 100644
--- a/lib/Memoize/AnyDBM_File.pm
+++ b/lib/Memoize/AnyDBM_File.pm
@@ -10,7 +10,8 @@ See L<Memoize>.
 
 =cut
 
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
+$VERSION = 0.65;
 @ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA;
 
 my $verbose = 1;
@@ -18,6 +19,8 @@ my $verbose = 1;
 my $mod;
 for $mod (@ISA) {
 #  (my $truemod = $mod) =~ s/^Memoize:://;
+#  my $file = "$mod.pm";
+#  $file =~ s{::}{/}g;
   if (eval "require $mod") {
     print STDERR "AnyDBM_File => Selected $mod.\n" if $Verbose;
     @ISA = ($mod);	# if we leave @ISA alone, warnings abound