From: djk <djk>
Date: Sun, 29 Aug 1999 20:35:32 +0000 (+0000)
Subject: fixed iscallsign!
X-Git-Tag: R_1_31a^0
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=99bd533ad5e041fa447b978c75121aa11c312ed2;p=spider.git

fixed iscallsign!
---

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;
 }