From 5c4606e6c15b6518eadf808cb1a6c6cf67caf46b Mon Sep 17 00:00:00 2001
From: minima <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