From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 3 Mar 2023 13:16:54 +0000 (+0000)
Subject: fix pedantic 'uninitialised' warning in VE7CC.pm
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d40ce3bdc0585fc7740907562eb129f0a4383b4a;p=spider.git

fix pedantic 'uninitialised' warning in VE7CC.pm
---

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