From a2b5f735ab1f3a416c95a43ad8bf4f183dd300eb Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 4 Sep 2022 23:59:57 +0100
Subject: [PATCH] Fix show/wcy if no broadcasts received

---
 Changes     | 5 ++++-
 perl/WCY.pm | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 706e354c..8a362585 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,7 @@
-07Jun22=======================================================================
+06Jun22=======================================================================
+1. Fix show/wcy so that it works even if no wcy broadcasts have been received
+   this month. 
+01Jun22=======================================================================
 1. Fix show/(v)hfstats commands.
 2. Add CTY-3221 Prefixes.
 07Feb22=======================================================================
diff --git a/perl/WCY.pm b/perl/WCY.pm
index 1df87e80..534d89d7 100644
--- a/perl/WCY.pm
+++ b/perl/WCY.pm
@@ -171,7 +171,7 @@ sub search
 	my $count;
 	my $i;
 
-	if ($t == $main::systime && ($to <= $maxcache)) {
+	if ($t == $main::systime && ($to && $to <= @cache)) {
 		dbg("using wcy cache") if isdbg('wcy');
 		@out = reverse @cache;
 		pop @out while @out > $to;
-- 
2.34.1