X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=43828974d05c00f10d7936c8815b3df914fa8500;hb=ed2d469812ca5ab82baab7f8b4795660e01ef539;hp=a40a5aa5c51c274f2690984526a0de43fd5cecc8;hpb=370d3563d7df44b754549330fb640051f7c31889;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index a40a5aa5..43828974 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -492,6 +492,8 @@ my ($sigint, $sigterm);
 unless ($DB::VERSION) {
 	$sigint = AnyEvent->signal(signal=>'INT', cb=> sub{$decease->send});
 	$sigterm = AnyEvent->signal(signal=>'TERM', cb=> sub{$decease->send});
+#	$sigint = AnyEvent->signal(signal=>'INT', cb=> sub{AnyEvent->unloop});
+#	$sigterm = AnyEvent->signal(signal=>'TERM', cb=> sub{AnyEvent->unloop});
 }
 
 unless ($is_win) {
@@ -584,6 +586,7 @@ my $per_sec = AnyEvent->timer(after => 0, interval => 0.010, cb => sub{idle_loop
 
 # main loop
 $decease->recv;
+#AnyEvent->loop;
 
 idle_loop() for (1..25);
 cease(0);