DB Schema upgrades are now all single-step in case user has applied any already

2013-03-04 23:45:36 +00:00
parent b7ae4dfc57
commit c94e890bb9
21 changed files with 111 additions and 472 deletions
--- a/Netdisco/bin/netdisco-deploy
+++ b/Netdisco/bin/netdisco-deploy
@@ -20,11 +20,16 @@ BEGIN {
 }

 BEGIN {
-  # stuff useful locations into @INC
+  # stuff useful locations into @INC and $PATH
+  my $location = $FindBin::RealBin;
+
  use Path::Class;
  unshift @INC,
-    dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
-    dir($FindBin::RealBin, 'lib')->stringify;
+    dir($location)->parent->subdir('lib')->stringify,
+    dir($location, 'lib')->stringify;
+
+  use Config;
+  $ENV{PATH} = $location . $Config{path_sep} . $ENV{PATH};
 }

 use App::Netdisco;