X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FLRU.pm;h=30b264a525c1ec4afb17d4705d91f8e90ca136de;hb=e0fa9a04bfb66136a2485246c7ea1ec8f00e00e2;hp=d53b115b55e2a52d417987a69802362c5238e3b1;hpb=f87323c2926605792ee02b84783d8f3d4dbd605f;p=spider.git

diff --git a/perl/LRU.pm b/perl/LRU.pm
index d53b115b..30b264a5 100644
--- a/perl/LRU.pm
+++ b/perl/LRU.pm
@@ -55,7 +55,7 @@ sub get
 sub put
 {
 	my ($self, $call, $ref) = @_;
-	confess("need a call and a reference") unless $call && $ref;
+	confess("need a call and a reference") unless defined $call && $ref;
 	my $p = $self->obj->{$call};
 	if ($p) {
 		# update the reference and rechain it