libcrypto: leak in RSA_print()

[Tobias Heider]

If EVP_PKEY_set1_RSA() returns 0 we seem leak pk here.

ok?

Index: rsa/rsa_prn.c
===================================================================
RCS file: /cvs/src/lib/libcrypto/rsa/rsa_prn.c,v
retrieving revision 1.7
diff -u -p -r1.7 rsa_prn.c
--- rsa/rsa_prn.c       29 Jan 2017 17:49:23 -0000      1.7
+++ rsa/rsa_prn.c       8 Nov 2022 11:59:28 -0000
@@ -85,8 +85,10 @@ RSA_print(BIO *bp, const RSA *x, int off
        int ret;
 
        pk = EVP_PKEY_new();
-       if (!pk || !EVP_PKEY_set1_RSA(pk, (RSA *)x))
+       if (!pk || !EVP_PKEY_set1_RSA(pk, (RSA *)x)) {
+               EVP_PKEY_free(pk);
                return 0;
+       }
        ret = EVP_PKEY_print_private(bp, pk, off, NULL);
        EVP_PKEY_free(pk);
        return ret;