tried to get rid of some of the annoying global destructions messages

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index b471c754ec82a7999c39b8c50b69e0287ad05292..a070353752075c18c1453f0704d5c4511b07b490 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -61,7 +61,7 @@ use Filter;
 use Local;
 use Fcntl ':flock'; 
 
-use Carp;
+use Carp qw(cluck);
 
 package main;
 
@@ -194,7 +194,9 @@ sub cease
        dbg('chan', "DXSpider version $version ended");
        Log('cluster', "DXSpider V$version stopped");
        dbgclose();
+       Logclose();
        unlink $lockfn;
+#      $SIG{__WARN__} = $SIG{__DIE__} =  sub {my $a = shift; cluck($a); };
        exit(0);
 }