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