remove Path::Class dependency from netdisco-daemon scripts

This commit is contained in:
Oliver Gorwits
2017-07-02 09:53:42 +01:00
parent ad5d0dd28e
commit 49f1ff40a6
3 changed files with 8 additions and 4 deletions

View File

@@ -1,3 +1,9 @@
2.036004 - 2017-07-02
[BUG FIXES]
* remove Path::Class dependency from netdisco-daemon scripts
2.036003 - 2017-06-28 2.036003 - 2017-06-28
[NEW FEATURES] [NEW FEATURES]

View File

@@ -7,7 +7,6 @@ use FindBin;
FindBin::again(); FindBin::again();
use File::Spec; use File::Spec;
use Path::Class;
use Cwd 'realpath'; use Cwd 'realpath';
use File::Copy 'move'; use File::Copy 'move';
@@ -15,8 +14,8 @@ my $me = realpath(File::Spec->catfile($FindBin::RealBin, $FindBin::RealScript));
my $uid = (stat($me))[4] || 0; my $uid = (stat($me))[4] || 0;
my $home = ($ENV{NETDISCO_HOME} || (getpwuid($uid))[7] || $ENV{HOME}); my $home = ($ENV{NETDISCO_HOME} || (getpwuid($uid))[7] || $ENV{HOME});
my $old_pid = file($home, 'netdisco-daemon.pid'); my $old_pid = File::Spec->catfile($home, 'netdisco-daemon.pid');
my $new_pid = file($home, 'netdisco-backend.pid'); my $new_pid = File::Spec->catfile($home, 'netdisco-backend.pid');
if (-f $old_pid) { move( $old_pid, $new_pid ) } if (-f $old_pid) { move( $old_pid, $new_pid ) }
my $backend = my $backend =

View File

@@ -7,7 +7,6 @@ use FindBin;
FindBin::again(); FindBin::again();
use File::Spec; use File::Spec;
use Path::Class;
use Cwd 'realpath'; use Cwd 'realpath';
my $me = realpath(File::Spec->catfile($FindBin::RealBin, $FindBin::RealScript)); my $me = realpath(File::Spec->catfile($FindBin::RealBin, $FindBin::RealScript));