From 7ab06733bff9df3779a4082b5863a6273b5373d7 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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