From b30f40ed925e9b9eda2733b209f8415a23eb2e44 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 17 Jun 2020 12:59:03 +0100
Subject: [PATCH] Set $Spot::readback back to 1

This is to solve the problem of losing found spots when traversing
multiple files.

TO BE FIXED!! So we can read forward again.
---
 Changes      | 2 ++
 perl/RBN.pm  | 2 +-
 perl/Spot.pm | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 4d546775..39cedc25 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+17Jun20=======================================================================
+1. Change the Spot file reading mechanism back to the default of using 'tac'.
 08Jun20=======================================================================
 1. Fix show/mydx (lack of) filtering bug.
 2. Add qra locator to prefix_data.pl.
diff --git a/perl/RBN.pm b/perl/RBN.pm
index a3567f80..e2f532d8 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -318,7 +318,7 @@ sub normal
 				++$count;
 			}
 		}
-		dbg "RBN:ADMIN,spot cache: $removed removed $count remain"; # if isdbg('rbn');
+		dbg "RBN:ADMIN,$self->{call},spot cache remain: $count removed: $removed"; # if isdbg('rbn');
 		dbg "RBN:" . join(',', "STAT", $self->{noraw}, $self->{norbn}, $self->{nospot}) if $self->{showstats};
 		$self->{noraw} = $self->{norbn} = $self->{nospot} = 0;
 		$self->{last} = int($tim / 60) * 60;
diff --git a/perl/Spot.pm b/perl/Spot.pm
index 8b703306..be175ff0 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -63,7 +63,7 @@ $filterdef = bless ([
 $totalspots = $hfspots = $vhfspots = 0;
 $use_db_for_search = 0;
 
-our $readback = 0;
+our $readback = 1;
 
 if ($readback) {
 	$readback = `which tac`;
-- 
2.43.0