From: minima Date: Sun, 15 Apr 2001 17:17:33 +0000 (+0000) Subject: alter changing %conns callsign logic slightly X-Git-Tag: R_1_47~28 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=5c4606e6c15b6518eadf808cb1a6c6cf67caf46b;p=spider.git alter changing %conns callsign logic slightly --- 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");