From 10b36ab14f4ecabed9137b190274e3e3f7fb0212 Mon Sep 17 00:00:00 2001 From: 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