From ea366aefc6157af48d60f939f6b6d00e6d55f438 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 21 Jun 2020 15:05:55 +0100
Subject: [PATCH] fix new RBN spot typos

---
 perl/RBN.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
 
-- 
2.43.0