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.

diff --git a/Changes b/Changes
index 4d54677552464a3cebd88a6bd240d5f5b3702c36..39cedc2503220a0b089338f4583407b808792475 100644 (file)
--- 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 a3567f80aeeb3f6685b9ff21b3340764adc160b8..e2f532d83c076bc1c4b5531370af558ca60757d8 100644 (file)
--- 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 8b703306e25e0f1b94f86c1bbbddabca0a2a70e1..be175ff04ca26e153a773630a58385e92e19e055 100644 (file)
--- 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`;