reentr.pl is not defining _srandom_struct

Message-ID: <0mjgqvk4f8idatljni3cfoeta3ljbm8a6c@4ax.com>

p4raw-id: //depot/maint-5.8/perl@21658

2 files changed, 10 insertions, 0 deletions

diff --git a/reentr.h b/reentr.h
index a826abf848..0b67f92a36 100644
--- a/reentr.h
+++ b/reentr.h
@@ -771,6 +771,9 @@ typedef struct {
 	int32_t	_random_retval;
 #   endif
 #endif /* HAS_RANDOM_R */
+#ifdef HAS_SRANDOM_R
+	struct random_data _srandom_struct;
+#endif /* HAS_SRANDOM_R */
 
     int dummy; /* cannot have empty structs */
 } REENTR;
diff --git a/reentr.pl b/reentr.pl
index fbde0e5cd1..db6c8fd166 100644
--- a/reentr.pl
+++ b/reentr.pl
@@ -764,6 +764,13 @@ if (exists $seena{random}) {
 EOF
 }
 
+if (exists $seena{srandom}) {
+    push @struct, <<EOF;
+#ifdef HAS_SRANDOM_R
+	$seent{srandom} _srandom_struct;
+#endif /* HAS_SRANDOM_R */
+EOF
+}
 
 
 local $" = '';