From 7ab06733bff9df3779a4082b5863a6273b5373d7 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 19 Nov 2021 00:20:55 +0000
Subject: [PATCH] fix RBN callsigns and 'basecall()'

---
 perl/DXUtil.pm | 4 ++--
 perl/RBN.pm    | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

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)) {
-- 
2.43.0