X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=963ed4a5895945f9cbf2bf8a7f5bf0900e8a3b10;hb=0aaec2fed8977d5e1cd02a4f1432bdde135a1044;hp=ae773e12f53cd5dfc34c1574603e28ba452e52c5;hpb=5b16fd51941f17c26f8acaa35183cb8d407d16bc;p=spider.git diff --git a/perl/Spot.pm b/perl/Spot.pm index ae773e12..963ed4a5 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -273,7 +273,7 @@ sub formatb my $loc = $ref->qra if $ref && $ref->qra && $wantgrid; $loc = ' ' . substr($ref->qra, 0, 4) if $loc; $loc = "" unless $loc; - return sprintf "DX de %-7.7s%11.1f %-12.12s %-30s %s$loc", "$_[4]:", $_[0], $_[1], $_[3], $t ; + return sprintf "DX de %-7.7s%11.1f %-12.12s %-29s %s$loc", "$_[4]:", $_[0], $_[1], $_[3], $t ; } # format a spot for user output in list mode