X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=0e6ee9661c07abd36053f5a1ef1032db739f1d43;hb=5c4606e6c15b6518eadf808cb1a6c6cf67caf46b;hp=3a422c3a817c4c93fe32fdd1c1f2f281c5a61e0f;hpb=ecd9c3904c5859a2db92fd2668ea756186eda699;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 3a422c3a..0e6ee966 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -118,7 +118,8 @@ sub conns
 	if (ref $pkg) {
 		$call = $pkg->{call} unless $call;
 		return undef unless $call;
-		confess "changing $pkg->{call} to $call" if exists $pkg->{call} && $call ne $pkg->{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");