diff options
| author | Richard Levitte <levitte@openssl.org> | 2021-05-01 07:29:27 +0200 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2021-05-04 10:16:33 +0200 |
| commit | 0d6c144e8d0c53e8947e3a76225ea33b3e29abc8 (patch) | |
| tree | 686b4dc46dd9ddf0621cc5382527036cb5466643 /util | |
| parent | d1a770414acd34c774248ce8efbe202fd7a44041 (diff) | |
OpenSSL::Test: When prefixing command with $^X on Windows, fix it up!
The perl interpreter name itself might contain spaces and need quoting.
__fixup_prg() does this for us.
Fixes #14256
Co-authored-by: Tomáš Mráz <tomas@openssl.org>
Reviewed-by: Tomas Mraz <tomas@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/15084)
Diffstat (limited to 'util')
| -rw-r--r-- | util/perl/OpenSSL/Test.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/util/perl/OpenSSL/Test.pm b/util/perl/OpenSSL/Test.pm index 4dc1bad188..55f26cc630 100644 --- a/util/perl/OpenSSL/Test.pm +++ b/util/perl/OpenSSL/Test.pm @@ -1232,7 +1232,7 @@ sub __wrap_cmd { # In the Windows case, we run perl explicitly. We might not # need it, but that depends on if the user has associated the # '.pl' extension with a perl interpreter, so better be safe. - @prefix = ( $^X, $std_wrapper ); + @prefix = ( __fixup_prg($^X), $std_wrapper ); } else { # Otherwise, we assume Unix semantics, and trust that the #! # line activates perl for us. |