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