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

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

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