document Git_Data

[perl5.git] / lib / Memoize / ExpireFile.pm

diff --git a/lib/Memoize/ExpireFile.pm b/lib/Memoize/ExpireFile.pm
index cca9fba..e52c09a 100644 (file)
--- a/lib/Memoize/ExpireFile.pm
+++ b/lib/Memoize/ExpireFile.pm
@@ -10,7 +10,7 @@ See L<Memoize::Expire>.
 
 =cut
 
-$VERSION = 0.65;
+$VERSION = 1.01;
 use Carp;
 
 my $Zero = pack("N", 0);
@@ -23,6 +23,7 @@ sub TIEHASH {
 
 
 sub STORE {
+#  print "Expiry manager STORE handler\n";
   my ($self, $key, $data) = @_;
   my $cache = $self->{C};
   my $cur_date = pack("N", (stat($key))[9]);
@@ -36,13 +37,16 @@ sub FETCH {
 }
 
 sub EXISTS {
+#  print "Expiry manager EXISTS handler\n";
   my ($self, $key) = @_;
-  my $old_date = $self->{C}{"T$key"} || $Zero;
-  my $cur_date = pack("N", (stat($key))[9]);
+  my $cache_date = $self->{C}{"T$key"} || $Zero;
+  my $file_date = pack("N", (stat($key))[9]);#
 #  if ($self->{ARGS}{CHECK_DATE} && $old_date gt $cur_date) {
 #    return $self->{ARGS}{CHECK_DATE}->($key, $old_date, $cur_date);
 #  } 
-  return $old_date ge $cur_date;
+  my $res = $cache_date ge $file_date;
+#  print $res ? "... still good\n" : "... expired\n";
+  $res;
 }
 
 1;