X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;h=faa280dc7f9d2cbd2b741d47394a07009b80de36;hb=10b36ab14f4ecabed9137b190274e3e3f7fb0212;hp=854050ae7761ed534784b9882c81bc82d3bec28a;hpb=f48da7dcd6d8305c018bebc6ffb5c11c3346aacf;p=spider.git

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;