From: minima <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");