X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=c4abc15bef7021d76c2352f55278350f02b3e3c9;hb=e4df86158dd5138a1fea25dd693b67fd9d78fb56;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;
 }