Update of /cvsroot/perl-openssl/Crypt/OpenSSL/Random
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3216
Modified Files:
Random.xs
Log Message:
remove unused variable
Index: Random.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/Random/Random.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Random.xs 9 Apr 2001 02:17:54 -0000 1.1
--- Random.xs 3 Jan 2006 15:08:50 -0000 1.2
***************
*** 5,11 ****
#include <openssl/rand.h>
! #define PACKAGE_NAME "Crypt::OpenSSL::RSA"
! MODULE = Crypt::OpenSSL::Random PACKAGE = Crypt::OpenSSL::Random
void
random_bytes(num_bytes_SV)
--- 5,11 ----
#include <openssl/rand.h>
! #define PACKAGE_NAME "Crypt::OpenSSL::RSA"
! MODULE = Crypt::OpenSSL::Random PACKAGE = Crypt::OpenSSL::Random
void
random_bytes(num_bytes_SV)
***************
*** 58,62 ****
}
! # Seed the PRNG with user-provided bytes; returns true if the
# seeding was sufficient.
--- 58,62 ----
}
! # Seed the PRNG with user-provided bytes; returns true if the
# seeding was sufficient.
***************
*** 83,87 ****
{
int random_bytes_length;
- char *random_bytes;
int status;
char *egd = SvPV(egd_SV, random_bytes_length);
--- 83,86 ----
***************
*** 98,100 ****
XPUSHs( sv_2mortal( newSViv( RAND_status() ) ) );
}
-
--- 97,98 ----
|
