From 99bd533ad5e041fa447b978c75121aa11c312ed2 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 29 Aug 1999 20:35:32 +0000
Subject: [PATCH] fixed iscallsign!

---
 perl/DXUtil.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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