X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=6fbd9f21e8dcc8ccf58e75950d34aa48e2423ad7;hb=b9dffeff7239952814342dad19db3a51def6fab7;hp=4ec31dee57721f0c4f83db9d632fe0487bdead9f;hpb=a5b42f8de3d2882755f72d42d9e9092868a61ec1;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 4ec31dee..6fbd9f21 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -54,12 +54,6 @@ $cmdimportdir = "$main::root/cmd_import"; # the base directory for importing com
                                           # this does not exist as default, you need to create it manually
 					  #
 
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
 #
 # obtain a new connection this is derived from dxchannel
 #
@@ -1050,9 +1044,9 @@ sub broadcast_debug
 	foreach my $dxchan (DXChannel::get_all) {
 		next unless $dxchan->{enhanced} && $dxchan->{senddbg};
 		if ($dxchan->{gtk}) {
-			$dxchan->local_send('L', dd(['db', $s]));
+			$dxchan->send_later('L', dd(['db', $s]));
 		} else {
-			$dxchan->local_send('L', $s);
+			$dxchan->send_later('L', $s);
 		}
 	}
 }