X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=a5ae268b34c2b601eb176482453057e17e4c6e75;hb=b1c75fc83d3dd1d82a2022f6ace2cc20ced19194;hp=08b28acd3298b81d3ec7e644dd387aa70977698e;hpb=6d0ecd3545795aecacff640efc5ccc4e01be892b;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 08b28acd..a5ae268b 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -1007,7 +1007,7 @@ sub format_dx_spot my $t = ztime($_[2]); my $loc = ''; - my $clth = 31 + $self->{width} - 80; # allow comment to grow according the screen width + my $clth = 30 + $self->{width} - 80; # allow comment to grow according the screen width # --$clth if $self->{consort} eq 'local'; my $comment = substr (($_[3] || ''), 0, $clth);