From 824d23772b2c38bdeab60ccb087517e62e5192e5 Mon Sep 17 00:00:00 2001
From: Bernd Edlinger <bernd.edlinger@hotmail.de>
Date: Thu, 9 Jan 2025 21:24:44 +0100
Subject: [PATCH] Revert "Do not confuse TAP::Parser by mixing up stderr with
 stdout."
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

This reverts commit 3d3bb26a13dcc67f99e66de6a44ae9ced117f64b.

Reviewed-by: Frederik Wedel-Heinen <fwh.openssl@gmail.com>
Reviewed-by: Saša Nedvědický <sashan@openssl.org>
Reviewed-by: Tomas Mraz <tomas@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/26374)
---
 util/perl/TLSProxy/Proxy.pm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm
index 8436861668a..48c55f48220 100644
--- a/util/perl/TLSProxy/Proxy.pm
+++ b/util/perl/TLSProxy/Proxy.pm
@@ -290,14 +290,8 @@ sub start
     if ($self->debug) {
         print STDERR "Server command: $execcmd\n";
     }
-    my $sin = undef;
-    my $sout = undef;
-    if ("$^O" eq "MSWin32") {
-        $pid = IPC::Open2::open2($sout, $sin, $execcmd) or die "Failed to $execcmd: $!\n";
-    } else {
-        $pid = IPC::Open3::open3($sin, $sout, undef, $execcmd) or die "Failed to $execcmd: $!\n";
-    }
 
+    $pid = IPC::Open2::open2(my $sout, my $sin, $execcmd) or die "Failed to $execcmd: $!\n";
     $self->{serverpid} = $pid;
 
     # Process the output from s_server until we find the ACCEPT line, which
-- 
2.47.2