X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;fp=perl%2FMsg.pm;h=13833962d3d316d26f997e8861a431d143bda478;hb=309eea6bcd4a0eaf25f810168bc38dc348c2a982;hp=d0ad733048a3c0699d14695ae2263fb48ac80074;hpb=2ca690592ea14e2ecd6783feed99ed7a8195162c;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index d0ad7330..13833962 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -320,7 +320,7 @@ sub _close_it
 
 	if ($sock) {
 		dbg((ref $conn) . " Connection $conn->{cnum} $call closing gracefully") if isdbg('connll');
-		$sock->close_gracefully;
+		$sock->close_gracefully if $sock->can('close_gracefully');
 	}
 	
 	# get rid of any references
@@ -570,7 +570,8 @@ sub DESTROY
 	my $sock = $conn->{sock};
 
 	if ($sock) {
-		$sock->close_gracefully;
+		$sock->close_gracefully if $sock->can('close_gracefully');
+		delete $conn->{sock};
 	}
 	
 	$noconns--;