Merge pull request #61 from Martchus/fix-handling-process-groups

Fix handling process groups when initial process is not running anymore

Author: okurz

lib/Mojo/IOLoop/ReadWriteProcess.pm

@@ -403,7 +403,8 @@ sub restart {
 sub is_running {
   my ($self) = shift;
   $self->session->consume_collected_info;
-  $self->process_id ? kill 0 => $self->process_id : 0;
+  return 0 unless my $pid = $self->process_id;
+  kill(0, ($self->kill_whole_group ? -$pid : $pid));
 }
 
 sub write_pidfile {
@@ -519,15 +520,16 @@ sub stop {
   my $pid = $self->pid;
   return $self               unless defined $pid;
   return $self->_shutdown(1) unless $self->is_running;
-  $self->_diag("Stopping $pid") if DEBUG;
 
   my $ret;
   my $attempt      = 1;
   my $timeout      = $self->total_sleeptime_during_kill // 0;
   my $sleep_time   = $self->sleeptime_during_kill;
   my $max_attempts = $self->max_kill_attempts;
   my $signal       = $self->_default_kill_signal;
-  $pid = -getpgrp($pid) if $self->kill_whole_group;
+  $pid = -$pid if $self->kill_whole_group;
+  $self->_diag("Stopping $pid") if DEBUG;
+
   until ((defined $ret && ($ret == $pid || $ret == -1))
       || ($attempt > $max_attempts && $timeout <= 0))
   {