From 3732f12c668421b229eddcc1b3af2a4806ec9865 Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Wed, 4 May 2016 23:42:57 +0200 Subject: [PATCH] testlib/OpenSSL/Test.pm: address 5.10 warnings. Reviewed-by: Richard Levitte --- test/testlib/OpenSSL/Test.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/testlib/OpenSSL/Test.pm b/test/testlib/OpenSSL/Test.pm index f2d0c9bee2..8a7d0a0ac9 100644 --- a/test/testlib/OpenSSL/Test.pm +++ b/test/testlib/OpenSSL/Test.pm @@ -735,8 +735,8 @@ sub __exeext { sub __test_file { BAIL_OUT("Must run setup() first") if (! $test_name); - my $f = pop . __exeext(); - $f = catfile($directories{BLDTEST},@_,$f); + my $f = pop; + $f = catfile($directories{BLDTEST},@_,$f . __exeext()); $f = catfile($directories{SRCTEST},@_,$f) unless -x $f; return $f; } @@ -753,8 +753,8 @@ sub __perltest_file { sub __apps_file { BAIL_OUT("Must run setup() first") if (! $test_name); - my $f = pop . __exeext(); - $f = catfile($directories{BLDAPPS},@_,$f); + my $f = pop; + $f = catfile($directories{BLDAPPS},@_,$f . __exeext()); $f = catfile($directories{SRCAPPS},@_,$f) unless -x $f; return $f; } -- GitLab