perl-openssl-checkins

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

Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6995

Modified Files:
	RSA.pm RSA.xs 
Log Message:
fix a few places where I was still thinking of it as a pem string instead
of an x509 string


Index: RSA.pm
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** RSA.pm	13 Feb 2004 23:26:58 -0000	1.27
--- RSA.pm	15 Feb 2004 14:20:17 -0000	1.28
***************
*** 59,63 ****
          $rsa->get_public_key_string();
    print "public key (in X509 format) is:\n",
!         $rsa->get_public_key_pem_string();
  
    $rsa_priv->use_md5_hash(); # use_sha1_hash is the default
--- 59,63 ----
          $rsa->get_public_key_string();
    print "public key (in X509 format) is:\n",
!         $rsa->get_public_key_x509_string();
  
    $rsa_priv->use_md5_hash(); # use_sha1_hash is the default
***************
*** 237,241 ****
      elsif ($p_key_string =~ /^-----BEGIN PUBLIC KEY-----/)
      {
!         $self->_load_public_pem_key($p_key_string);
      }
      else
--- 237,241 ----
      elsif ($p_key_string =~ /^-----BEGIN PUBLIC KEY-----/)
      {
!         $self->_load_public_x509_key($p_key_string);
      }
      else

Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** RSA.xs	15 Feb 2004 14:18:17 -0000	1.31
--- RSA.xs	15 Feb 2004 14:20:17 -0000	1.32
***************
*** 244,248 ****
  
  void
! _load_public_pem_key(rsa_HV, key_string_SV)
      HV* rsa_HV;
      SV* key_string_SV;
--- 244,248 ----
  
  void
! _load_public_x509_key(rsa_HV, key_string_SV)
      HV* rsa_HV;
      SV* key_string_SV;