From 586ea6930abbc888b48950dbe54c982aad9ff8ac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Radek=20Barto=C5=88?= <radek.barton@microsoft.com>
Date: Mon, 27 Nov 2023 09:36:04 +0100
Subject: [PATCH] Fix running tests with Perl on Windows

---
 test/run_tests.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/run_tests.pl b/test/run_tests.pl
index 90fba194b11bec..16fa66046d0525 100644
--- a/test/run_tests.pl
+++ b/test/run_tests.pl
@@ -24,7 +24,7 @@ BEGIN
 use File::Spec::Functions qw/catdir catfile curdir abs2rel rel2abs/;
 use File::Basename;
 use FindBin;
-use lib "$FindBin::Bin/../util/perl";
+use lib "$ENV{SRCTOP}/util/perl";
 use OpenSSL::Glob;
 
 my $srctop = $ENV{SRCTOP} || $ENV{TOP};
@@ -272,9 +272,11 @@ sub find_matching_tests {
             return bless { %args }, $class;
         }
 
-        sub runtests {
+        sub runtests {          
             my $self = shift;
 
+            print $self
+
             # Pre TAP::Harness Test::Harness doesn't support [ filename, name ]
             # elements, so convert such elements to just be the filename
             my @args = map { ref($_) eq 'ARRAY' ? $_->[0] : $_ } @_;