X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fcluster.pl;h=666f4f87fd0b59d0b167b297f3ef11cbec3d454c;hp=d783bff33fa553deb411d410752bca80b51e87ef;hb=099c6b4a10d9f1e7471b0c94273cd992b5814cdc;hpb=cce345b95c555a0b45218c5b452bc0f5f4f13bab

diff --git a/perl/cluster.pl b/perl/cluster.pl
index d783bff3..666f4f87 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -27,6 +27,7 @@ use Msg;
 use DXVars;
 use DXDebug;
 use DXLog;
+use DXLogPrint;
 use DXUtil;
 use DXChannel;
 use DXUser;
@@ -149,7 +150,7 @@ sub process_inqueue
 	
 	my $data = $self->{data};
 	my $dxchan = $self->{dxchan};
-	my ($sort, $call, $line) = $data =~ /^(\w)(\w+)\|(.*)$/;
+	my ($sort, $call, $line) = $data =~ /^(\w)(\S+)\|(.*)$/;
 	
 	# do the really sexy console interface bit! (Who is going to do the TK interface then?)
 	dbg('chan', "<- $sort $call $line\n");