testlib/OpenSSL/Test.pm: address 5.10 warnings.

Reviewed-by: N Richard Levitte <levitte@openssl.org>

testlib/OpenSSL/Test.pm: address 5.10 warnings.
Reviewed-by: N Richard Levitte <levitte@openssl.org>
3732f12c · Andy Polyakov · 9a2d2fb3 · 3732f12c
隐藏空白更改
内联并排

Showing with 4 addition and 4 deletion

test/testlib/OpenSSL/Test.pm test/testlib/OpenSSL/Test.pm +4 -4

未找到文件。
--- 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();
+    my $f = pop;
-    $f = catfile($directories{BLDTEST},@_,$f);
+    $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();
+    my $f = pop;
-    $f = catfile($directories{BLDAPPS},@_,$f);
+    $f = catfile($directories{BLDAPPS},@_,$f . __exeext());
    $f = catfile($directories{SRCAPPS},@_,$f) unless -x $f;
    return $f;
 }