remove Path::Class dependency from netdisco-daemon scripts
This commit is contained in:
6
Changes
6
Changes
@@ -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]
|
||||||
|
|||||||
@@ -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 =
|
||||||
|
|||||||
@@ -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));
|
||||||
|
|||||||
Reference in New Issue
Block a user