improved Hypnotoad to clean up old PID files (closes #383)

mojolicious · Sep 15, 2012 · fb3d704 · fb3d704
1 parent 9ffbec7
commit fb3d704
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,6 @@
 
-3.42  2012-09-14
+3.42  2012-09-15
+  - Improved Hypnotoad to clean up old PID files.
   - Improved documentation.
 
 3.41  2012-09-13

diff --git a/lib/Mojo/Server/Hypnotoad.pm b/lib/Mojo/Server/Hypnotoad.pm
@@ -82,8 +82,9 @@ sub run {
   $self->{poll} = IO::Poll->new;
   $self->{poll}->mask($self->{reader}, POLLIN);
 
-  # Manager environment
+  # Clean manager environment
   my $c = $self->{config};
+  unlink $c->{pid_file} if $ENV{HYPNOTOAD_REV} < 3 && -w $c->{pid_file};
   $SIG{INT} = $SIG{TERM} = sub { $self->{finished} = 1 };
   $SIG{CHLD} = sub {
     while ((my $pid = waitpid -1, WNOHANG) > 0) { $self->_reap($pid) }