+ my $pub_key = eval { Net::SSLeay::X509_get_pubkey($cert) };
+ warn $@ if $@;
+ if ($pub_key) {
+ $info->{'public-key-type'} = Net::SSLeay::OBJ_nid2sn(Net::SSLeay::EVP_PKEY_id($pub_key));
+ $info->{'public-key-bits'} = Net::SSLeay::EVP_PKEY_bits($pub_key);
+ Net::SSLeay::EVP_PKEY_free($pub_key);
+ }
+