search for localenv could not find $HOME

2014-04-17 06:39:37 +01:00
parent 10a6e33561
commit d0d39e4574
8 changed files with 32 additions and 8 deletions
--- a/Netdisco/bin/netdisco-db-deploy
+++ b/Netdisco/bin/netdisco-db-deploy
@@ -3,12 +3,14 @@
 use strict;
 use warnings;

-our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
+our $home;

 BEGIN {
  use FindBin;
  FindBin::again();

+  $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
+
  # try to find a localenv if one isn't already in place.
  if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
      use File::Spec;