X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FWCY.pm;h=534d89d76ca9b2ce3ecf7dbaafe551d70e5501b2;hb=23bb5e1bb2403e57f59d22fd8f4f0514d9a963df;hp=504768860717204fc0f70814b6f1ca7e55c6ab8b;hpb=5835ca385fb719194163512276666aaf75e82484;p=spider.git

diff --git a/perl/WCY.pm b/perl/WCY.pm
index 50476886..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;
@@ -229,7 +229,7 @@ sub print_item
 	my $d = cldate($r->[0]);
 	my $t = (gmtime($r->[0]))[2];
 
-	return sprintf("$d   %02d %5d %3d %3d   %3d %3d %-5s %-5s %6s <%s>", 
+	return sprintf("$d   %02d %5d %3d %3d   %3d %3d %-5s %-5s %6s   <%s>", 
 				    $t, @$r[1..9]);
 }