From: minima <minima>
Date: Thu, 29 Mar 2001 21:03:32 +0000 (+0000)
Subject: protect finsh from recursion
X-Git-Tag: R_1_47~80
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=10b36ab14f4ecabed9137b190274e3e3f7fb0212;p=spider.git

protect finsh from recursion
---

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 854050ae..faa280dc 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -76,9 +76,13 @@ sub init
 	_sendf('m') if $monitor;
 }
 
+my $finishing = 0;
+
 sub finish
 {
+	return if $finishing;
 	if ($sock) {
+		$finishing = 1;
 		dbg('err', "AGW ending...");
 		for (values %circuit) {
 			$_->disconnect;