X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=c4abc15bef7021d76c2352f55278350f02b3e3c9;hb=0542c1871c9563b7577a4b9a1282fd5d2c203047;hp=7a81ac23a847ff19a2ba7835427e90a2721f0d12;hpb=8aa1d223307c50d8bbaa0ed4ef915f8c7365bc6e;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 7a81ac23..c4abc15b 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -189,7 +189,7 @@ sub shellregex
 sub iscallsign
 {
 	my $call = shift;
-	return 1 if $call =~ /^\w+\s+/;
+	return 1 if $call =~ /^\w+\d+/;
 	return 1 if $call =~ /^\d+\w+/;
 	return undef;
 }