X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=490ea04604f4e96293c47bd68a1854bac3f78203;hb=6a17c3a3e2f7a72c0d13a93c90a010b753319def;hp=c81273e29b329a5070b2bd53e34e7371564e3c68;hpb=f43ac25669a7b9368d9537eed2043a864a906303;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index c81273e2..490ea046 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -585,7 +585,6 @@ sub DESTROY
 		dbgtrace((ref $conn) . "::DESTROY on call $call called from ${pkg}::${fn} line $line ");
 	}
 
-	my $call = $conn->{call} || 'unallocated';
 	my $host = $conn->{peerhost} || '';
 	my $port = $conn->{peerport} || '';
 	my $sock = $conn->{sock};