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

Reviewed-by: Tom Cosgrove <[email protected]> Reviewed-by: Tomas Mraz <[email protected]> (Merged from openssl#23330)
t-j-h · Jan 22, 2024 · ffda5af · ffda5af
1 parent 7f7a910
commit ffda5af
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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];