From 158084c7ec82c08b2b0d0fc2f69c120ceb4329cb Mon Sep 17 00:00:00 2001
From: Ervin Hegedus <airween@gmail.com>
Date: Sun, 27 Jul 2025 19:54:58 +0200
Subject: [PATCH] Fix startup errors, missing getopt() args

---
 tests/run-regression-tests.pl.in | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/run-regression-tests.pl.in b/tests/run-regression-tests.pl.in
index 40e885f0..bf95343d 100755
--- a/tests/run-regression-tests.pl.in
+++ b/tests/run-regression-tests.pl.in
@@ -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},