mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-01-18 13:44:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
Reviewed-by: Richard Levitte <levitte@openssl.org>
This commit is contained in:
Andy Polyakov 2016-05-04 23:42:57 +02:00
parent 9a2d2fb338
commit 3732f12c66
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/testlib/OpenSSL/Test.pm
View File

@ -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;
}