portability fix on linux
This commit is contained in:
@@ -7,6 +7,9 @@ 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,
|
||||
|
||||
@@ -69,8 +69,8 @@ sub summary {
|
||||
return join ' ',
|
||||
$job->action,
|
||||
($job->device || ''),
|
||||
($job->port || ''),
|
||||
($job->subaction ? (q{'}. $job->subaction .q{'}) : '');
|
||||
($job->port || '');
|
||||
# ($job->subaction ? (q{'}. $job->subaction .q{'}) : '');
|
||||
}
|
||||
|
||||
=head1 ADDITIONAL COLUMNS
|
||||
|
||||
@@ -57,8 +57,8 @@ sub summary {
|
||||
return join ' ',
|
||||
$job->action,
|
||||
($job->device || ''),
|
||||
($job->port || ''),
|
||||
($job->subaction ? (q{'}. $job->subaction .q{'}) : '');
|
||||
($job->port || '');
|
||||
# ($job->subaction ? (q{'}. $job->subaction .q{'}) : '');
|
||||
}
|
||||
|
||||
=head1 ADDITIONAL COLUMNS
|
||||
|
||||
@@ -3,8 +3,8 @@ package App::Netdisco::Util::Daemon;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Module::Load ();
|
||||
eval { Module::Load::load 'Sys::Proctitle' };
|
||||
# make sure this is already done elsewhere
|
||||
use if $^O eq 'linux', 'Sys::Proctitle';
|
||||
|
||||
use base 'Exporter';
|
||||
our @EXPORT = 'prctl';
|
||||
|
||||
Reference in New Issue
Block a user