#322 cease use of Sys::Proctitle

This commit is contained in:
Oliver Gorwits
2017-06-27 11:28:38 +01:00
parent 5b82a0b16c
commit 6fbf5b4ca7
4 changed files with 7 additions and 15 deletions

View File

@@ -58,7 +58,6 @@ Module::Build->new(
'Sereal' => '0',
'Socket6' => '0.23',
'Starman' => '0.4008',
(($^O eq 'linux') ? ('Sys::Proctitle' => '0') : ()),
'SNMP::Info' => '3.34',
'SQL::Translator' => '0.11018',
'Template' => '2.24',

View File

@@ -1,3 +1,9 @@
2.036003 - TESTING
[BUG FIXES]
* #322 cease use of Sys::Proctitle
2.036002 - 2017-06-26
[ENHANCEMENTS]

View File

@@ -7,9 +7,6 @@ use FindBin;
FindBin::again();
use Path::Class 'dir';
# get a segfault if we load this later
use if $^O eq 'linux', 'Sys::Proctitle';
BEGIN {
# stuff useful locations into @INC
unshift @INC,

View File

@@ -5,20 +5,10 @@ use warnings;
use MCE::Util ();
# make sure this is already done elsewhere
use if $^O eq 'linux', 'Sys::Proctitle';
use base 'Exporter';
our @EXPORT = qw/prctl parse_max_workers/;
sub prctl {
if ($^O eq 'linux') {
Sys::Proctitle::setproctitle(shift);
}
else {
$0 = shift;
}
}
sub prctl { $0 = shift }
sub parse_max_workers {
my $max = shift;