diff options
author | Richard Levitte <levitte@openssl.org> | 2017-10-09 17:55:38 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2017-10-09 17:56:17 +0200 |
commit | 9b9a8a712d64e35a337b22869288f246b5580c73 (patch) | |
tree | 7cfcaa8ebc9f540eb9bd3785caf599d742b43b6b /util | |
parent | 0ed78e78007bb74e48e6f59fa2388bb244153bf0 (diff) |
Fix util/perl/OpenSSL/Test.pm input variable overwrite
Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4507)
Diffstat (limited to 'util')
-rw-r--r-- | util/perl/OpenSSL/Test.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/util/perl/OpenSSL/Test.pm b/util/perl/OpenSSL/Test.pm index ffbb1968d4..eb453a3290 100644 --- a/util/perl/OpenSSL/Test.pm +++ b/util/perl/OpenSSL/Test.pm @@ -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 { |