From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 19 Nov 2021 00:20:55 +0000 (+0000)
Subject: fix RBN callsigns and 'basecall()'
X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ab06733bff9df3779a4082b5863a6273b5373d7;p=spider.git

fix RBN callsigns and 'basecall()'
---

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 182cde34..5f5af2dd 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -592,6 +592,6 @@ sub parraydifft
 
 sub basecall
 {
-	$_[0] =~ m|^(?:[\w\d]+/)?([\w\d]+).*$|;
-	return $1;
+	my ($r) = $_[0] =~ m|^(?:[\w\d]+/)?([\w\d]+).*$|;
+	return $r;
 }
diff --git a/perl/RBN.pm b/perl/RBN.pm
index 51c299c4..0b3dfe5a 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -252,7 +252,7 @@ sub normal
 	}
 
 	# remove all extraneous crap from the origin - just leave the base callsign
-	$origin =~ basecall($origin);
+	$origin = basecall($origin);
 
 	# is this callsign in badspotter list?
 	if ($DXProt::badspotter->in($origin) || $DXProt::badnode->in($origin)) {