fixed iscallsign!

[spider.git] / perl / DXUtil.pm

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 7a81ac23a847ff19a2ba7835427e90a2721f0d12..c4abc15bef7021d76c2352f55278350f02b3e3c9 100644 (file)
--- 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;
 }