From 002341eaf13c761495c7fbad0b2ba69666e644fb Mon Sep 17 00:00:00 2001
From: Nikolay Shaplov <dhyan@nataraj.su>
Date: Fri, 3 Jan 2025 23:07:00 +0300
Subject: [PATCH] Fix memory leaks in t/local/33_x509_create_cert.t test

---
 t/local/33_x509_create_cert.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/local/33_x509_create_cert.t b/t/local/33_x509_create_cert.t
index 80914eb5..444aadbc 100755
--- a/t/local/33_x509_create_cert.t
+++ b/t/local/33_x509_create_cert.t
@@ -46,6 +46,7 @@ is(Net::SSLeay::X509_NAME_cmp($ca_issuer, $ca_subject), 0, "X509_NAME_cmp");
      $r = Crypt::OpenSSL::Bignum->bless_pointer($bn);
      is($r->to_decimal(), Net::SSLeay::RSA_F4(), 'Crypt::OpenSSL::Bignum exponent twice');
   }
+  map {Net::SSLeay::BN_free($_)} @params; # Properly free BIGNUMs returned by RSA_get_key_parameters
  
   ok(my $x509  = Net::SSLeay::X509_new(), "X509_new");
   ok(Net::SSLeay::X509_set_pubkey($x509,$pk), "X509_set_pubkey");