]> dxcluster.org Git - spider.git/commitdiff
fixed iscallsign! R_1_31a
authordjk <djk>
Sun, 29 Aug 1999 20:35:32 +0000 (20:35 +0000)
committerdjk <djk>
Sun, 29 Aug 1999 20:35:32 +0000 (20:35 +0000)
perl/DXUtil.pm

index 7a81ac23a847ff19a2ba7835427e90a2721f0d12..c4abc15bef7021d76c2352f55278350f02b3e3c9 100644 (file)
@@ -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;
 }