Fix show/wcy if no broadcasts received

diff --git a/Changes b/Changes
index 706e354c22b87b006460482a5b4ea98d8d2760a1..8a36258550c9dcd1fa2b2450a45a31be9ba2927b 100644 (file)
--- 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 1df87e802b907d56e237d3d61686e8052cf6761b..534d89d76ca9b2ce3ecf7dbaafe551d70e5501b2 100644 (file)
--- 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;