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

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

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

Modified Files:
	Random.xs 
Log Message:
Handle types more correctly on 64-bit boxes


Index: Random.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/Random/Random.xs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Random.xs	3 Jan 2006 15:08:50 -0000	1.2
--- Random.xs	5 Jan 2006 05:49:47 -0000	1.3
***************
*** 66,70 ****
  PPCODE:
  {
!     int random_bytes_length;
      char *random_bytes;
      random_bytes = SvPV(random_bytes_SV, random_bytes_length);
--- 66,70 ----
  PPCODE:
  {
!     Size_t random_bytes_length;
      char *random_bytes;
      random_bytes = SvPV(random_bytes_SV, random_bytes_length);
***************
*** 82,86 ****
  PPCODE:
  {
!     int random_bytes_length;
      int status;
      char *egd = SvPV(egd_SV, random_bytes_length);
--- 82,86 ----
  PPCODE:
  {
!     Size_t random_bytes_length;
      int status;
      char *egd = SvPV(egd_SV, random_bytes_length);