change delayed pc11 storage to hash

[spider.git] / perl / WCY.pm

diff --git a/perl/WCY.pm b/perl/WCY.pm
index 504768860717204fc0f70814b6f1ca7e55c6ab8b..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;
@@ -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]);
 }