Changeset 8022 for lang/perl/App-MadEye

Timestamp:

03/17/08 13:04:15 (9 months ago)

Author:

tokuhirom

Message:

自分が死ぬときには子供も道連れにしてやるぜ。

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Worker/Gearman.pm (modified) (2 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Worker/Gearman.pm

@@ -35 +35 @@
     my @child_pids = $self->_run_workers($context);
     $self->child_pids(\@child_pids);
+
+    $SIG{__DIE__} = sub {
+        $self->kill_workers();
+    };
 }
 
@@ -97 +101 @@
 
     $context->log(debug => 'kill children!');
-    $self->kill_workers($context);
+    $self->kill_workers();
 
     # DESTROYYYYYYYYY