[Perl-openssl-checkins] Crypt/OpenSSL/Random Random.xs,1.3,1.4

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

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

Modified Files:
	Random.xs 
Log Message:
better naming


Index: Random.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/Random/Random.xs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Random.xs	5 Jan 2006 05:49:47 -0000	1.3
--- Random.xs	6 Jan 2006 14:49:27 -0000	1.4
***************
*** 82,88 ****
  PPCODE:
  {
!     Size_t random_bytes_length;
      int status;
!     char *egd = SvPV(egd_SV, random_bytes_length);
      status = RAND_egd(egd);
      XPUSHs( sv_2mortal( newSViv( status ) ) );
--- 82,88 ----
  PPCODE:
  {
!     Size_t egd_length;
      int status;
!     char *egd = SvPV(egd_SV, egd_length);
      status = RAND_egd(egd);
      XPUSHs( sv_2mortal( newSViv( status ) ) );