X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=490ea04604f4e96293c47bd68a1854bac3f78203;hb=1f746528060467b7953a560c08f913091d03c0a1;hp=c81273e29b329a5070b2bd53e34e7371564e3c68;hpb=f91073b99369ea05c42364f9462695be7a67016d;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};