delay setting $0 in master. Fixes gh-7

miyagawa · Apr 20, 2010 · 69a6600 · 69a6600
1 parent 1cf8daf
commit 69a6600
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/Starman/Server.pm b/lib/Starman/Server.pm
@@ -92,8 +92,12 @@ sub pre_loop_hook {
         TTIN => sub { $self->{server}->{$_}++ for qw( min_servers max_servers ) },
         TTOU => sub { $self->{server}->{$_}-- for qw( min_servers max_servers ) },
     );
+}
 
+sub run_parent {
+    my $self = shift;
     $0 = "starman master " . join(" ", @{$self->{options}{argv} || []});
+    $self->SUPER::run_parent(@_);
 }
 
 # The below methods run in the child process