NetWare changeover from Watcom to Codewarrior, from C Aditya.
[p5sagit/p5-mst-13.2.git] / lib / Memoize / AnyDBM_File.pm
index d634f40..91f9609 100644 (file)
@@ -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