[#79] Support perlbrew environment as alternative to localenv
This commit is contained in:
@@ -10,6 +10,7 @@
|
||||
* [#66] Remove reference to "native" VLAN in code and replace with "untagged"
|
||||
* [#66] DB Schema update to add "native" column to PK of device_port_vlan table
|
||||
* [#64] Addition of Wireshark abbreviations for OUI manufacturers
|
||||
* [#79] Support perlbrew environment as alternative to localenv
|
||||
|
||||
[BUG FIXES]
|
||||
|
||||
|
||||
@@ -15,7 +15,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};
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@@ -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};
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@@ -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};
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@@ -15,7 +15,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};
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user