From 716a64fcc4b0981fd788deb43ca6548cc634ea56 Mon Sep 17 00:00:00 2001 From: Bernd Edlinger Date: Thu, 9 Jan 2025 21:25:55 +0100 Subject: [PATCH] Revert "chomp does not work on windows." MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This reverts commit 3e94e2b11d73ed22c601f818b31b7c4ca281f5d1. Reviewed-by: Frederik Wedel-Heinen Reviewed-by: Saša Nedvědický Reviewed-by: Tomas Mraz (Merged from https://github.com/openssl/openssl/pull/26374) --- util/perl/TLSProxy/Proxy.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm index 48c55f4822..ede8df268c 100644 --- a/util/perl/TLSProxy/Proxy.pm +++ b/util/perl/TLSProxy/Proxy.pm @@ -297,8 +297,7 @@ 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>) { - print; - s/\R$//; # chomp does not work on windows. + chomp; next unless (/^ACCEPT\s.*:(\d+)$/); $self->{server_port} = $1; last;