From: Dr. David von Oheimb <dev@ddvo.net>
Date: Thu, 18 Jan 2024 13:46:17 +0000 (+0100)
Subject: 02-test_errstr.t: make robust on `openssl errstr` crashes
X-Git-Tag: openssl-3.3.0-alpha1~277
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ffda5af359ed024c64e02c692b589f4fe47b0fc5;p=thirdparty%2Fopenssl.git

02-test_errstr.t: make robust on `openssl errstr` crashes

Reviewed-by: Tom Cosgrove <tom.cosgrove@arm.com>
Reviewed-by: Tomas Mraz <tomas@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/23330)
---

diff --git a/test/recipes/02-test_errstr.t b/test/recipes/02-test_errstr.t
index 396d2731761..61adc83e585 100644
--- a/test/recipes/02-test_errstr.t
+++ b/test/recipes/02-test_errstr.t
@@ -134,8 +134,9 @@ sub match_opensslerr_reason {
     my @strings = @_;
 
     my $errcode_hex = sprintf "%x", $errcode;
-    my $reason =
-        ( run(app([ qw(openssl errstr), $errcode_hex ]), capture => 1) )[0];
+    my @res = run(app([ qw(openssl errstr), $errcode_hex ]), capture => 1);
+    return 0 unless $#res >= 0;
+    my $reason = $res[0];
     $reason =~ s|\R$||;
     $reason = ( split_error($reason) )[3];