alter changing %conns callsign logic slightly

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 03151ca1976aa8906a2b7d7566143ae65dd83f8f..0e6ee9661c07abd36053f5a1ef1032db739f1d43 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -119,6 +119,7 @@ sub conns
                $call = $pkg->{call} unless $call;
                return undef unless $call;
                dbg('connll', "changing $pkg->{call} to $call") if exists $pkg->{call} && $call ne $pkg->{call};
+               delete $conns{$pkg->{call}} if $pkg->{call} ne $call; 
                $pkg->{call} = $call;
                $ref = $conns{$call} = $pkg;
                dbg('connll', "Connection $pkg->{cnum} $call stored");