Fixes #13247
Reviewed-by: Tomas Mraz <tomas@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/15189)
if (out_bin) {
BIO_write(out, buf, len);
} else {
- if (outfile == NULL)
- BIO_printf(out,"\n");
for (i = 0; i < (int)len; ++i)
BIO_printf(out, "%02X", buf[i]);
if (outfile == NULL)
# Not unlinking $tmpfile
if (defined($expect)) {
- if ($lines[1] =~ m|^\Q${expect}\E\R$|) {
+ if ($lines[0] =~ m|^\Q${expect}\E\R$|) {
return 1;
} else {
- print "Got: $lines[1]";
+ print "Got: $lines[0]";
print "Exp: $expect\n";
return 0;
}