fix pedantic 'uninitialised' warning in VE7CC.pm

diff --git a/perl/VE7CC.pm b/perl/VE7CC.pm
index 729b91c07f43359a6856f9b831ff4857cf6f8e8f..d90430ca5a661fb3911165c4ea9cade535d5d997 100644 (file)
--- 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);