protect finsh from recursion

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 854050ae7761ed534784b9882c81bc82d3bec28a..faa280dc7f9d2cbd2b741d47394a07009b80de36 100644 (file)
--- 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;