[Rt-commit] r5780 - in Cache-Simple-TimedExpiry: .

[jesse at bestpractical.com]

Author: jesse
Date: Fri Aug 18 19:15:41 2006
New Revision: 5780

Modified:
   Cache-Simple-TimedExpiry/   (props changed)
   Cache-Simple-TimedExpiry/lib/Cache/Simple/TimedExpiry.pm

Log:
 r20561 at pinglin:  jesse | 2006-08-18 19:13:46 -0400
 * No longer complain on cache expirey.
 


Modified: Cache-Simple-TimedExpiry/lib/Cache/Simple/TimedExpiry.pm
==============================================================================
--- Cache-Simple-TimedExpiry/lib/Cache/Simple/TimedExpiry.pm	(original)
+++ Cache-Simple-TimedExpiry/lib/Cache/Simple/TimedExpiry.pm	Fri Aug 18 19:15:41 2006
@@ -88,11 +88,11 @@
 
 sub store ($$$) {
   my ($self,$key,$value) = @_;
-
   my $time = time;
   # Only expire 
   $self->expire($time) if ($time > $self->[3]);
 
+  return undef unless ($key);
   $self->[1]->{$key} = $value;
 
     push @{$self->[2]}, [ time, $key ];