We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 6c1f58d + 5e50ed0 commit 4951e30Copy full SHA for 4951e30
1 file changed
RSA.xs
@@ -114,7 +114,11 @@ SV* make_rsa_obj(SV* p_proto, EVP_PKEY* p_rsa)
114
115
CHECK_NEW(rsa, 1, rsaData);
116
rsa->rsa = p_rsa;
117
+#ifdef SHA512_DIGEST_LENGTH
118
+ rsa->hashMode = NID_sha256;
119
+#else
120
rsa->hashMode = NID_sha1;
121
+#endif
122
rsa->padding = RSA_PKCS1_OAEP_PADDING;
123
return sv_bless(
124
newRV_noinc(newSViv((IV) rsa)),
0 commit comments