135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Clean up library path fiddling across all scripts

Browse Source
This commit is contained in:
Oliver Gorwits
2014-03-11 21:40:58 +00:00
parent 58ffd7a53a
commit 47d712490e
11 changed files with 85 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Netdisco/bin/netdisco-deploy
View File

@@ -1,11 +1,15 @@
#!/usr/bin/env perl
our $home;
use strict;
use warnings;
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
BEGIN {
# try really hard to find a localenv if one isn't already in place.
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
use FindBin;
FindBin::again();
# try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec;
my $localenv = File::Spec->catfile($FindBin::RealBin, 'localenv');
@@ -16,22 +20,16 @@ BEGIN {
die "Sorry, can't find libs required for App::Netdisco.\n"
if !exists $ENV{PERLBREW_PERL};
}
}
use FindBin;
FindBin::again();
use Path::Class;
use Path::Class;
BEGIN {
# stuff useful locations into @INC and $PATH
my $location = $FindBin::RealBin;
unshift @INC,
dir($location)->parent->subdir('lib')->stringify,
dir($location, 'lib')->stringify;
dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
dir($FindBin::RealBin, 'lib')->stringify;
use Config;
$ENV{PATH} = $location . $Config{path_sep} . $ENV{PATH};
$ENV{PATH} = $FindBin::RealBin . $Config{path_sep} . $ENV{PATH};
}
use App::Netdisco;
@@ -39,7 +37,7 @@ use Dancer ':script';
use Dancer::Plugin::DBIC 'schema';
use Dancer::Plugin::Passphrase;
info "App::Netdisco version $App::Netdisco::VERSION loaded.";
info "App::Netdisco $App::Netdisco::VERSION loaded.";
use 5.010_000;
use Term::UI;