X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=1fc50bd0e7d8af6d1aa5e7c4193198aa728aa3fd;hb=78fcd88c563bc8f05c9f590cdfc0739129c7efda;hp=8e981fc2f908690db5f6cb539c0fa06fe07b3c7f;hpb=47fcf88853f83b34078198fdeb063791a6a7f0f2;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 8e981fc2..1fc50bd0 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -252,11 +252,12 @@ sub normal
 	}
 
 	# remove all extraneous crap from the origin - just leave the base callsign
-	$origin = basecall($origin);
-	unless ($origin) {
+	my $norigin = basecall($origin);
+	unless ($norigin) {
 		dbg("RBN: ERROR '$origin' is an invalid callsign, dumped");
 		return;
 	}
+	$origin = $norigin;
 
 	# is this callsign in badspotter list?
 	if ($DXProt::badspotter->in($origin) || $DXProt::badnode->in($origin)) {