From: minima <minima>
Date: Sun, 6 Oct 2002 23:12:04 +0000 (+0000)
Subject: fix problem with invalid callsigns starting with 0
X-Git-Tag: PRE-1-52~160
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f526fba8b99f487581a3048d4c0f2cd2d3c1d7c9;p=spider.git

fix problem with invalid callsigns starting with 0
---

diff --git a/Changes b/Changes
index 3cc041c2..59458297 100644
--- 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 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