From 49f1ff40a659754b4e51c9a1e59777239b065d5e Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sun, 2 Jul 2017 09:53:42 +0100
Subject: [PATCH] remove Path::Class dependency from netdisco-daemon scripts

---
 Changes                | 6 ++++++
 bin/netdisco-daemon    | 5 ++---
 bin/netdisco-daemon-fg | 1 -
 3 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 74a1b7c4..e77509b7 100644
--- a/Changes
+++ b/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
 
   [NEW FEATURES]
diff --git a/bin/netdisco-daemon b/bin/netdisco-daemon
index 2ac25b39..a915bb4b 100755
--- a/bin/netdisco-daemon
+++ b/bin/netdisco-daemon
@@ -7,7 +7,6 @@ use FindBin;
 FindBin::again();
 
 use File::Spec;
-use Path::Class;
 use Cwd 'realpath';
 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 $home = ($ENV{NETDISCO_HOME} || (getpwuid($uid))[7] || $ENV{HOME});
 
-my $old_pid = file($home, 'netdisco-daemon.pid');
-my $new_pid = file($home, 'netdisco-backend.pid');
+my $old_pid = File::Spec->catfile($home, 'netdisco-daemon.pid');
+my $new_pid = File::Spec->catfile($home, 'netdisco-backend.pid');
 if (-f $old_pid) { move( $old_pid, $new_pid ) }
 
 my $backend =
diff --git a/bin/netdisco-daemon-fg b/bin/netdisco-daemon-fg
index e487dca0..2c37de0a 100755
--- a/bin/netdisco-daemon-fg
+++ b/bin/netdisco-daemon-fg
@@ -7,7 +7,6 @@ use FindBin;
 FindBin::again();
 
 use File::Spec;
-use Path::Class;
 use Cwd 'realpath';
 
 my $me = realpath(File::Spec->catfile($FindBin::RealBin, $FindBin::RealScript));