[#79] Support perlbrew environment as alternative to localenv

2014-01-11 10:09:07 +00:00
parent b0e8c7413d
commit 693e0bd6db
5 changed files with 13 additions and 4 deletions
--- a/Netdisco/bin/netdisco-do
+++ b/Netdisco/bin/netdisco-do
@@ -12,7 +12,9 @@ BEGIN {
      exec($localenv, $0, @ARGV) if -f $localenv;
      $localenv = File::Spec->catfile($home, 'perl5', 'bin', 'localenv');
      exec($localenv, $0, @ARGV) if -f $localenv;
-      die "Sorry, can't find libs required for App::Netdisco.\n";
+
+      die "Sorry, can't find libs required for App::Netdisco.\n"
+        if !exists $ENV{PERLBREW_PERL};
  }
 }