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

#322 cease use of Sys::Proctitle

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

1
Build.PL
View File

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

6
Changes
View File

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

3
bin/netdisco-backend-fg
View File

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

12
lib/App/Netdisco/Util/Backend.pm
View File

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