[Perl-openssl-checkins] Crypt/OpenSSL/RSA RSA.xs,1.45,1.46

[<iro...@us...>]

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