X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=c492d918ab98a5a6941d3fb5a3c6451327a73223;hb=433209e1efed23493f25f1357d9c003696c1fb59;hp=2adce5429b0cc4b02c86c950a79eb4310a087c77;hpb=b9e57057d60a952bd43acdbeb2420ad7964b96f8;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 2adce542..c492d918 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -74,7 +74,7 @@ our $spotcachedays = 2;			# default 2 days worth
 our $minselfspotqrg = 1240000;	# minimum freq above which self spotting is allowed
 
 our $readback = $main::is_win ? 0 : 1; # don't read spot files backwards if it's windows
-our $qrggranularity = 100000;	# normalise the qrg to this number of hz (default: 100khz), so tough luck if you have a fumble fingers moment
+our $qrggranularity = 1000;	# normalise the qrg to this number of hz (default: 100khz), so tough luck if you have a fumble fingers moment
 our $timegranularity = 600;		# ditto to the nearest 100 seconds 
 our $oldstyle = 0;				# revert to traditional dupe key format
 
@@ -193,7 +193,6 @@ sub init
 	if ($spotcachedays > 0) {
 		my $t0 = [gettimeofday];
 		$spotcachedays = 2 if $spotcachedays < 2;
-		dbg "Spot::init - reading in $spotcachedays days of spots into cache"; 
 		for (my $i = 0; $i < $spotcachedays; ++$i) {
 			my $now = $today->sub($i);
 			my $fh = $fp->open($now);