#322 cease use of Sys::Proctitle

2017-06-27 11:28:38 +01:00
parent 5b82a0b16c
commit 6fbf5b4ca7
4 changed files with 7 additions and 15 deletions
--- a/lib/App/Netdisco/Util/Backend.pm
+++ b/lib/App/Netdisco/Util/Backend.pm
@@ -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;