attempt to get rid of some of the useless messages on program exit

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 3014e24fd7cf45bb4e6e3af622de45f4f1b50720..b471c754ec82a7999c39b8c50b69e0287ad05292 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -193,6 +193,7 @@ sub cease
        DXUser::finish();
        dbg('chan', "DXSpider version $version ended");
        Log('cluster', "DXSpider V$version stopped");
+       dbgclose();
        unlink $lockfn;
        exit(0);
 }