Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11705
Modified Files:
RSA.xs
Log Message:
I can think of no good reason to disallow secret keys from verifying
signatures
Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -d -r1.45 -r1.46
*** RSA.xs 17 Feb 2004 16:54:32 -0000 1.45
--- RSA.xs 18 Feb 2004 16:39:19 -0000 1.46
***************
*** 568,576 ****
int result;
- if (is_private(p_rsa))
- {
- croak("Secret keys should not check signatures.");
- }
-
sig = SvPV(sig_SV, sig_length);
rsa = p_rsa->rsa;
--- 568,571 ----
|
