X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FWCY.pm;h=534d89d76ca9b2ce3ecf7dbaafe551d70e5501b2;hb=a2b5f735ab1f3a416c95a43ad8bf4f183dd300eb;hp=1df87e802b907d56e237d3d61686e8052cf6761b;hpb=681ed7b3c6d79228a68054489058b619f62974bf;p=spider.git

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;