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