From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 29 Jul 2020 23:38:16 +0000 (+0100)
Subject: fix mojo complaints in check_cache
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=022cd402cfcb2db545d81cc6bc05552e02d639dc;p=spider.git

fix mojo complaints in check_cache
---

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index f7e52c9a..24fa840f 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -539,7 +539,7 @@ sub difft
 	if (ref $b eq 'ARRAY') {
 		$t = $b->[1] - $b->[0];
 	} else {
-		if ($adds >= $b) {
+		if ($adds && $adds >= $b) {
 			$t = $adds - $b;
 			$adds = shift;
 		} else {
diff --git a/perl/RBN.pm b/perl/RBN.pm
index d9fbe053..9ff7dd48 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -623,6 +623,9 @@ sub per_10_minute
 	my $count = 0;
 	my $removed = 0;
 	while (my ($k,$cand) = each %{$spots}) {
+		next if $k eq 'VERSION';
+		next if $k =~ /^O\|/;
+		
 		if ($main::systime - $cand->[CTime] > $minspottime*2) {
 			delete $spots->{$k};
 			++$removed;
@@ -668,7 +671,7 @@ sub check_cache
 	if (-e $cachefn) {
 		my $mt = (stat($cachefn))[9];
 		my $t = $main::systime - $mt || 1;
-		my $p = difft($mt);
+		my $p = difft($mt, 2);
 		if ($t < $cache_valid) {
 			dbg("RBN:check_cache '$cachefn' spot cache exists, created $p ago and not too old");
 			my $fh = IO::File->new($cachefn);
@@ -688,7 +691,8 @@ sub check_cache
 					if (exists $spots->{VERSION} && $spots->{VERSION} == $DATA_VERSION) {
 						# now clean out anything that is current
 						while (my ($k, $cand) = each %$spots) {
-							next unless ref $cand;
+							next if $k eq 'VERSION';
+							next if $k =~ /^O\|/;
 							if (@$cand > CData) {
 								$spots->{$k} = [$cand->[CTime], $cand->[CQual]];
 							}