X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMemoize%2FAnyDBM_File.pm;h=91f960962f959ddedb7a82a41e87b19571d46c3a;hb=76ca89edebb126a10dcdc3521c9db0680eba1b5c;hp=89ef0e13d689295649c21665f4b84655ce54ce00;hpb=899dc88a93c9f405bbb10a691d04fc8dc860485b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Memoize/AnyDBM_File.pm b/lib/Memoize/AnyDBM_File.pm
index 89ef0e1..91f9609 100644
--- a/lib/Memoize/AnyDBM_File.pm
+++ b/lib/Memoize/AnyDBM_File.pm
@@ -19,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