From 5c4606e6c15b6518eadf808cb1a6c6cf67caf46b Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 15 Apr 2001 17:17:33 +0000 Subject: [PATCH] alter changing %conns callsign logic slightly --- perl/Msg.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl/Msg.pm b/perl/Msg.pm index 03151ca1..0e6ee966 100644 --- 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"); -- 2.43.0