From f526fba8b99f487581a3048d4c0f2cd2d3c1d7c9 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 6 Oct 2002 23:12:04 +0000
Subject: [PATCH] fix problem with invalid callsigns starting with 0

---
 Changes     | 2 ++
 perl/LRU.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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
-- 
2.34.1