X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=385abb31bcbb49a556a3b2566c8f1bf1119acdc2;hb=6d0ecd3545795aecacff640efc5ccc4e01be892b;hp=cbe37cc66960e2decda72de2d553f544ac9a1912;hpb=942a06f9a573659489eb4a9185b73c4296cd31fd;p=spider.git 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;