l3_vid_group: perl use statements do not work inside conditionals

This commit is contained in:
Jed Reynolds
2020-03-05 15:10:44 -08:00
parent a7777555d2
commit 688cc9325f

View File

@@ -19,7 +19,7 @@ $| = 1;
# This is before run-time, so cannot condition this with normal 'if' logic.
use lib '/home/lanforge/scripts';
use lib "./";
use Data::Dumper;
use LANforge::Endpoint;
use LANforge::Port;
use LANforge::Utils;
@@ -124,12 +124,7 @@ if ($show_help) {
exit 0;
}
if (defined $ENV{DEBUG}) {
use Data::Dumper;
}
if ($::debug) {
use Data::Dumper;
$ENV{DEBUG} = 1 if (!(defined $ENV{DEBUG}));
}