mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-02-17 14:32:04 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix util/perl/OpenSSL/Test.pm input variable overwrite

Browse Source 
Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4507)
This commit is contained in:
Richard Levitte 2017-10-09 17:55:38 +02:00
parent 0ed78e7800
commit 9b9a8a712d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
util/perl/OpenSSL/Test.pm
View File

@ -905,9 +905,9 @@ sub __test_file {
my $e = pop || "";
my $f = pop;
$f = catfile($directories{BLDTEST},@_,$f . $e);
$f = catfile($directories{SRCTEST},@_,$f) unless -f $f;
return $f;
my $out = catfile($directories{BLDTEST},@_,$f . $e);
$out = catfile($directories{SRCTEST},@_,$f) unless -f $out;
return $out;
}
sub __apps_file {
@ -915,9 +915,9 @@ sub __apps_file {
my $e = pop || "";
my $f = pop;
$f = catfile($directories{BLDAPPS},@_,$f . $e);
$f = catfile($directories{SRCAPPS},@_,$f) unless -f $f;
return $f;
my $out = catfile($directories{BLDAPPS},@_,$f . $e);
$out = catfile($directories{SRCAPPS},@_,$f) unless -f $out;
return $out;
}
sub __fuzz_file {
@ -925,9 +925,9 @@ sub __fuzz_file {
my $e = pop || "";
my $f = pop;
$f = catfile($directories{BLDFUZZ},@_,$f . $e);
$f = catfile($directories{SRCFUZZ},@_,$f) unless -f $f;
return $f;
my $out = catfile($directories{BLDFUZZ},@_,$f . $e);
$out = catfile($directories{SRCFUZZ},@_,$f) unless -f $out;
return $out;
}
sub __data_file {