fix problem with invalid callsigns starting with 0

diff --git a/Changes b/Changes
index 3cc041c20d53064e3a27b37e10c12079778c7e3e..594582970b1fc94106738167e366f7dfc070942e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+07Oct02=======================================================================
+1. fix problem with (invalid) callsigns starting with '0' (zero) eg 0f6ira.
 03Oct02=======================================================================
 1. only sysop (priv=5+) can now send to distro SYSOP, ordinary users will have 
 their message routed to the $main::myalias callsign as a private message. 

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