From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 21 Jun 2020 14:05:55 +0000 (+0100)
Subject: fix new RBN spot typos
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea366aefc6157af48d60f939f6b6d00e6d55f438;p=spider.git

fix new RBN spot typos
---

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 8cebcbf3..b78e9d4b 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -259,8 +259,8 @@ sub normal
 		# create record and add into the buildup
 		my $r = [$origin, nearest(.1, $qrg), $call, $mode, $s, $t, $utz, $respot, $u];
 		dbg("RBN: key: '$sp' ADD RECORD call: $call qrg: $qrg origin: $origin") if isdbg('rbn');
-		my @s =  Spot::prepare($r->[1], $r->[2], $r->[6], $comment, $r->[0]);
-		$r-[9] = \@s';
+		my @s =  Spot::prepare($r->[1], $r->[2], $r->[6], '', $r->[0]);
+		$r->[9] = \@s;
 
 		push @$spot, $r;