Fix startup errors, missing getopt() args

This commit is contained in:
Ervin Hegedus 2025-07-27 19:54:58 +02:00
parent a4ea4e6c00
commit 158084c7ec
No known key found for this signature in database
GPG Key ID: 5FA5BC3F5EC41F61

View File

@ -11,7 +11,7 @@
use strict;
use Time::HiRes qw(gettimeofday sleep);
use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG);
use File::Spec qw(rel2abs);
use File::Spec::Functions qw(rel2abs);
use File::Basename qw(basename dirname);
use FileHandle;
use IPC::Open2 qw(open2);
@ -54,7 +54,7 @@ $SIG{TERM} = $SIG{INT} = \&handle_interrupt;
my $platform = "apache";
my %opt;
getopts('A:E:D:C:T:H:a:p:dvh', \%opt);
getopts('A:E:D:C:T:H:S:a:p:dvh', \%opt);
if ($opt{d}) {
$Data::Dumper::Indent = 1;
@ -125,7 +125,7 @@ unless (defined $opt{S}) {
LOGS_DIR => $FILES_DIR,
SCRIPT_DIR => $SCRIPT_DIR,
REGRESSION_DIR => $REG_DIR,
DIST_ROOT => File::Spec->rel2abs(dirname("$SCRIPT_DIR/../../..")),
DIST_ROOT => File::Spec->rel2abs(dirname("$SCRIPT_DIR/../..")),
AUDIT_LOG => $opt{A},
DEBUG_LOG => $opt{D},
ERROR_LOG => $opt{E},