diff options
Diffstat (limited to 'lib/Memoize/ExpireFile.pm')
| -rw-r--r-- | lib/Memoize/ExpireFile.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/Memoize/ExpireFile.pm b/lib/Memoize/ExpireFile.pm index cca9fba651..e52c09a3bf 100644 --- 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; |