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);