[Perl-openssl-checkins] Crypt/OpenSSL/Random test.pl,1.4,1.5

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

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

Modified Files:
	test.pl 
Log Message:
20 bytes used to be enough, but no more - now 32 seems to be the bare min


Index: test.pl
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/Random/test.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** test.pl	6 Jan 2006 14:45:46 -0000	1.4
--- test.pl	6 Jan 2006 15:02:53 -0000	1.5
***************
*** 35,39 ****
  }
  
! my_test(Crypt::OpenSSL::Random::random_seed("Here are 19 bytes..."));
  
  # We should now be seeded, regardless.
--- 35,40 ----
  }
  
! my_test(Crypt::OpenSSL::Random::random_seed
!         ("OpenSSL needs at least 32 bytes."));
  
  # We should now be seeded, regardless.