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 | |
| parent | 0ed78e78007bb74e48e6f59fa2388bb244153bf0 (diff) | |
| download | openssl-9b9a8a712d64e35a337b22869288f246b5580c73.tar.gz | |
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)
| -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 { |