提交 3732f12c 编写于 作者: A Andy Polyakov

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

Reviewed-by: NRichard Levitte <levitte@openssl.org>
上级 9a2d2fb3
......@@ -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;
}
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册