From 9b9a8a712d64e35a337b22869288f246b5580c73 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Mon, 9 Oct 2017 17:55:38 +0200 Subject: [PATCH] Fix util/perl/OpenSSL/Test.pm input variable overwrite Reviewed-by: Rich Salz (Merged from https://github.com/openssl/openssl/pull/4507) --- util/perl/OpenSSL/Test.pm | 18 +++++++++--------- 1 file 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 { -- 2.25.1