From: Bernd Edlinger <bernd.edlinger@hotmail.de>
Date: Fri, 10 Jan 2025 07:45:20 +0000 (+0100)
Subject: Fix dtls tests
X-Git-Tag: openssl-3.3.3~31
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b1e89d207f377614211f9375a749ea717461251a;p=thirdparty%2Fopenssl.git

Fix dtls tests

The dtls server process exits too early when the input
has an EOF condition.

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)

(cherry picked from commit 52bcf4f88be949ecedfc924bc8ef37cbed7f24fb)
---

diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm
index dcf4567a396..8ffe8ee9ccb 100644
--- a/util/perl/TLSProxy/Proxy.pm
+++ b/util/perl/TLSProxy/Proxy.pm
@@ -293,6 +293,7 @@ sub start
     open(my $savedin, "<&STDIN");
 
     # Temporarily replace STDIN so that sink process can inherit it...
+    open(STDIN, "$^X -e 'sleep(1)' |");
     $pid = open(STDIN, "$execcmd 2>&1 |") or die "Failed to $execcmd: $!\n";
     $self->{real_serverpid} = $pid;