--- 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 {