From: Dirk Koopman Date: Fri, 19 Nov 2021 20:44:57 +0000 (+0000) Subject: add a digit to qrg in sh/dx X-Git-Url: http://dxcluster.org/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;