X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=c4abc15bef7021d76c2352f55278350f02b3e3c9;hb=99bd533ad5e041fa447b978c75121aa11c312ed2;hp=7a81ac23a847ff19a2ba7835427e90a2721f0d12;hpb=094315a61715270dbcf64d38d0b445ce6289f1ae;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;
 }