--- a/lib/IO/Socket/SSL/Utils.pm +++ b/lib/IO/Socket/SSL/Utils.pm @@ -94,7 +94,7 @@ sub CERT_free { sub KEY_free { my $key = shift or return; - Net::SSLeay::EVP_KEY_free($key); + Net::SSLeay::EVP_PKEY_free($key); } sub KEY_create_rsa {