]> dxcluster.net Git - spider.git/commitdiff
fix pedantic 'uninitialised' warning in VE7CC.pm
authorDirk Koopman <djk@tobit.co.uk>
Fri, 3 Mar 2023 13:16:54 +0000 (13:16 +0000)
committerDirk Koopman <djk@tobit.co.uk>
Fri, 3 Mar 2023 13:16:54 +0000 (13:16 +0000)
perl/VE7CC.pm

index 729b91c07f43359a6856f9b831ff4857cf6f8e8f..d90430ca5a661fb3911165c4ea9cade535d5d997 100644 (file)
@@ -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);