From d40ce3bdc0585fc7740907562eb129f0a4383b4a Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 3 Mar 2023 13:16:54 +0000 Subject: [PATCH] fix pedantic 'uninitialised' warning in VE7CC.pm --- perl/VE7CC.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/VE7CC.pm b/perl/VE7CC.pm index 729b91c0..d90430ca 100644 --- a/perl/VE7CC.pm +++ b/perl/VE7CC.pm @@ -47,7 +47,7 @@ sub dx_spot my $loc = $ref->qra || ''; $loc_spotter = substr($loc, 0, 4) if $loc; } - my $text = $_[4]; + my $text = $_[4] || ''; $text =~ s/\^/~/g; return sprintf("CC11^%0.1f^%s^", $freq, $spotted) . join('^', cldate($t), ztime($t), @_[0..3], $text, @_[5..10], $spotted_cc, $spotter_cc, $loc_spotted, $loc_spotter); -- 2.43.0