From 38f70624f39736e1cff7f7fc2e90e37ba9ef9a1f Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sun, 5 May 2013 17:04:30 +0100
Subject: [PATCH] set up file paths consistently in all scripts

---
 Netdisco/bin/nd-dbic-versions   | 12 ++++++++++--
 Netdisco/bin/nd-import-topology | 12 ++++++++++--
 Netdisco/bin/netdisco-db-deploy | 12 ++++++++++--
 3 files changed, 30 insertions(+), 6 deletions(-)

diff --git a/Netdisco/bin/nd-dbic-versions b/Netdisco/bin/nd-dbic-versions
index 0e4148c9..a41e4e15 100755
--- a/Netdisco/bin/nd-dbic-versions
+++ b/Netdisco/bin/nd-dbic-versions
@@ -1,9 +1,17 @@
 #!/usr/bin/env perl
 
 use FindBin;
-use lib "$FindBin::Bin/../lib";
-use App::Netdisco;
+FindBin::again();
+use Path::Class 'dir';
 
+BEGIN {
+  # stuff useful locations into @INC
+  unshift @INC,
+    dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
+    dir($FindBin::RealBin, 'lib')->stringify;
+}
+
+use App::Netdisco;
 use Dancer ':script';
 use Dancer::Plugin::DBIC 'schema';
 
diff --git a/Netdisco/bin/nd-import-topology b/Netdisco/bin/nd-import-topology
index f549fef7..35469c2a 100755
--- a/Netdisco/bin/nd-import-topology
+++ b/Netdisco/bin/nd-import-topology
@@ -1,9 +1,17 @@
 #!/usr/bin/env perl
 
 use FindBin;
-use lib "$FindBin::Bin/../lib";
-use App::Netdisco;
+FindBin::again();
+use Path::Class 'dir';
 
+BEGIN {
+  # stuff useful locations into @INC
+  unshift @INC,
+    dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
+    dir($FindBin::RealBin, 'lib')->stringify;
+}
+
+use App::Netdisco;
 use Dancer ':script';
 use Dancer::Plugin::DBIC 'schema';
 
diff --git a/Netdisco/bin/netdisco-db-deploy b/Netdisco/bin/netdisco-db-deploy
index ea75fbef..db95fbb5 100755
--- a/Netdisco/bin/netdisco-db-deploy
+++ b/Netdisco/bin/netdisco-db-deploy
@@ -1,9 +1,17 @@
 #!/usr/bin/env perl
 
 use FindBin;
-use lib "$FindBin::Bin/../lib";
-use App::Netdisco;
+FindBin::again();
+use Path::Class 'dir';
 
+BEGIN {
+  # stuff useful locations into @INC
+  unshift @INC,
+    dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
+    dir($FindBin::RealBin, 'lib')->stringify;
+}
+
+use App::Netdisco;
 use Dancer ':script';
 use Dancer::Plugin::DBIC 'schema';