In __cwd, make sure the given directory is seen as such and not a file

[openssl.git] / test / testlib / OpenSSL / Test.pm

diff --git a/test/testlib/OpenSSL/Test.pm b/test/testlib/OpenSSL/Test.pm
index 6af5e963fc296a7069b335798fdcb033fb30cfb3..e4218c55f5d4322580d4a1ce4bbf1da7edc5e7a6 100644 (file)
--- a/test/testlib/OpenSSL/Test.pm
+++ b/test/testlib/OpenSSL/Test.pm
@@ -87,7 +87,6 @@ sub __cwd;
 sub __apps_file;
 sub __results_file;
 sub __test_log;
-sub __cwd;
 sub __fixup_cmd;
 sub __build_cmd;
 
@@ -607,7 +606,7 @@ sub __test_log {
 }
 
 sub __cwd {
-    my $dir = shift;
+    my $dir = catdir(shift);
     my %opts = @_;
     my $abscurdir = rel2abs(curdir());
     my $absdir = rel2abs($dir);