diff options
author | Frederik Wedel-Heinen <frederik.wedel-heinen@dencrypt.dk> | 2024-01-26 11:27:02 +0100 |
---|---|---|
committer | Matt Caswell <matt@openssl.org> | 2024-02-09 08:16:56 +0000 |
commit | 3e94e2b11d73ed22c601f818b31b7c4ca281f5d1 (patch) | |
tree | 156558b2dd434d6051b2e6ddb4d4eaa1d2b2ed5a /util | |
parent | 3b3a00b62aab1e1016c2ad7f026b11cd3d0bc3b7 (diff) |
chomp does not work on windows.
Reviewed-by: Tomas Mraz <tomas@openssl.org>
Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/23319)
Diffstat (limited to 'util')
-rw-r--r-- | util/perl/TLSProxy/Proxy.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm index 08c82c0c52..3ecbd1893e 100644 --- a/util/perl/TLSProxy/Proxy.pm +++ b/util/perl/TLSProxy/Proxy.pm @@ -296,7 +296,8 @@ sub start # Process the output from s_server until we find the ACCEPT line, which # tells us what the accepting address and port are. while (<$sout>) { - chomp; + print; + s/\R$//; # chomp does not work on windows. next unless (/^ACCEPT\s.*:(\d+)$/); $self->{server_port} = $1; last; |