X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=03151ca1976aa8906a2b7d7566143ae65dd83f8f;hb=61660841afb3901002602e4956f09de5567bc950;hp=3a422c3a817c4c93fe32fdd1c1f2f281c5a61e0f;hpb=0ee803cf8ce9d944bbdeb2c479e38ebf9713d42f;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 3a422c3a..03151ca1 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -118,7 +118,7 @@ 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};
 		$pkg->{call} = $call;
 		$ref = $conns{$call} = $pkg;
 		dbg('connll', "Connection $pkg->{cnum} $call stored");