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