From ffda5af359ed024c64e02c692b589f4fe47b0fc5 Mon Sep 17 00:00:00 2001 From: "Dr. David von Oheimb" Date: Thu, 18 Jan 2024 14:46:17 +0100 Subject: [PATCH] 02-test_errstr.t: make robust on `openssl errstr` crashes Reviewed-by: Tom Cosgrove Reviewed-by: Tomas Mraz (Merged from https://github.com/openssl/openssl/pull/23330) --- test/recipes/02-test_errstr.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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]; -- 2.47.2