From 7b04a3d44f31ef2524a67c4498d686335477ee07 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 19 Nov 2021 20:44:57 +0000
Subject: [PATCH] add a digit to qrg in sh/dx

---
 perl/Spot.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.34.1