From 7b04a3d44f31ef2524a67c4498d686335477ee07 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0