From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 19 Nov 2021 20:44:57 +0000 (+0000)
Subject: add a digit to qrg in sh/dx
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b04a3d44f31ef2524a67c4498d686335477ee07;p=spider.git

add a digit to qrg in sh/dx
---

diff --git a/perl/Spot.pm b/perl/Spot.pm
index cbe37cc6..385abb31 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -464,7 +464,7 @@ sub formatl
 	my $comment = $_[4] || '';
 	$comment =~ s/\t+/ /g;
 	my $cl = length $comment;
-	my $s = sprintf "%8.1f  %-11s %s %s", $_[1], $_[2], $d, $t;
+	my $s = sprintf "%9.1f %-11s %s %s", $_[1], $_[2], $d, $t;
 	my $width = ($_[0] ? $_[0] : 80) - length($spotter) - length($s) - 2;
 	
 	$comment = substr $comment, 0, $width if $cl > $width;