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

Use Path::Class for path and file name construction consistently

Browse Source
This commit is contained in:
Oliver Gorwits
2013-02-24 21:14:53 +00:00
parent edfb0f3e24
commit 981383c307
5 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Netdisco/bin/netdisco-daemon
View File

@@ -2,11 +2,12 @@
use strict;
use warnings FATAL => 'all';
use Path::Class 'file';
BEGIN {
eval "use Daemon::Control";
if ($@) {
exec("$ENV{HOME}/bin/localenv", $0, @ARGV);
exec(file($ENV{HOME}, 'bin', 'localenv'), $0, @ARGV);
}
}
@@ -14,12 +15,12 @@ use Path::Class;
my $log_dir = dir($ENV{HOME}, 'logs');
mkdir $log_dir if ! -d $log_dir;
my $program = "$ENV{HOME}/bin/netdisco-daemon-fg";
my $program = file($ENV{HOME}, 'bin', 'netdisco-daemon-fg');
Daemon::Control->new({
name => 'Netdisco Daemon',
program => ($ENV{NETDISCO_DAEMON} || $program),
pid_file => "$ENV{HOME}/netdisco-daemon.pid",
pid_file => file($ENV{HOME}, 'netdisco-daemon.pid'),
stderr_file => file($log_dir, 'netdisco-daemon.log'),
stdout_file => file($log_dir, 'netdisco-daemon.log'),
})->run;