search for localenv could not find $HOME

Netdisco/Changes

@@ -1,9 +1,13 @@
-2.025002 -
+2.026001_001 -
 
   [ENHANCEMENTS]
 
   * Add FRU filter option to Module Inventory Report
 
+  [BUG FIXES]
+
+  * Search for localenv could not find $HOME
+
 2.025001 - 2014-04-08
 
   [NEW FEATURES]

Netdisco/bin/nd-import-topology

@@ -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;

Netdisco/bin/netdisco-daemon

@@ -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;

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;

Netdisco/bin/netdisco-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;

Netdisco/bin/netdisco-do

@@ -1,11 +1,16 @@
 #!/usr/bin/env perl
 
-our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
+use strict;
+use warnings;
+
+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;

Netdisco/bin/netdisco-rancid-export

@@ -1,11 +1,16 @@
 #!/usr/bin/env perl
 
-our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
+use strict;
+use warnings;
+
+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;

Netdisco/bin/netdisco-web

@@ -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;