Pass through RAND_seed() argument to libcrypto (#430)

Closes #427.

2 files changed, 6 insertions, 1 deletions

diff --git a/Changes b/Changes
index fcdd359..8dc2a9d 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Net::SSLeay.
 
+????
+	- Pass RAND_seed()'s sole argument to the underlying RAND_seed() function in
+	  libcrypto, rather than passing the value of a non-existent second argument.
+	  Fixes GH-427. Thanks to cgf1 for the report.
+
 1.93_02 2023-02-22
 	- Update ppport.h to version 3.68. This eliminates thousands of
 	  compound-token-split-by-macro compiler warnings when building Net-SSLeay with
diff --git a/SSLeay.xs b/SSLeay.xs
index aaeacd0..102e89f 100644
--- a/SSLeay.xs
+++ b/SSLeay.xs
@@ -3357,7 +3357,7 @@ RAND_seed(buf)
      PREINIT:
      STRLEN len;
      INPUT:
-     char *  buf = SvPV( ST(1), len);
+     char *buf = SvPV(ST(0), len);
      CODE:
      RAND_seed (buf, (int)len);