135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use Sys::Proctitle instead of Perl $0

Browse Source
This commit is contained in:
Oliver Gorwits
2014-08-07 16:46:43 +00:00
parent d9d2ea6b51
commit 941308698d
5 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Netdisco/bin/netdisco-daemon-fg
View File

@@ -6,6 +6,7 @@ use warnings;
use FindBin;
FindBin::again();
use Path::Class 'dir';
use Sys::Proctitle 'setproctitle';
BEGIN {
# stuff useful locations into @INC
@@ -37,7 +38,7 @@ my $tmp_dir = ($ENV{NETDISCO_TEMP} || dir($home, 'tmp'));
mkdir $tmp_dir if ! -d $tmp_dir;
setpgrp(0,0); # only portable variety of setpgrp
$0 = 'netdisco-daemon: master';
setproctitle 'netdisco-daemon: master';
my $mce = MCE->new(
spawn_delay => 0.15,
@@ -94,7 +95,7 @@ sub worker_factory {
return sub {
my $self = shift;
my $wid = $self->wid;
$0 = sprintf 'netdisco-daemon: worker #%s %s: init', $wid, lc($role);
setproctitle sprintf 'netdisco-daemon: worker #%s %s: init', $wid, lc($role);
info "applying role $role to worker $wid";
# $self->sendto('stderr', ">>> worker $wid starting with role $role\n");