fix problem with invalid callsigns starting with 0

[spider.git] / perl / LRU.pm

diff --git a/perl/LRU.pm b/perl/LRU.pm
index d53b115b55e2a52d417987a69802362c5238e3b1..30b264a525c1ec4afb17d4705d91f8e90ca136de 100644 (file)
--- 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