From 10b36ab14f4ecabed9137b190274e3e3f7fb0212 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 29 Mar 2001 21:03:32 +0000
Subject: [PATCH] protect finsh from recursion

---
 perl/AGWMsg.pm | 4 ++++
 1 file changed, 4 insertions(+)

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;
-- 
2.43.0