&CORE::rand()

This commit allows &CORE::rand to be called through references and
via ampersand syntax.  pp_rand is modified to take into account the
nulls pushed on to the stack in pp_coreargs, which happens because
pp_coreargs has no other way to tell rand how many arguments it’s
actually getting.  See commit 0163043a for details.

1 files changed, 3 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 78b1271050..fe2c4ab389 100644
--- a/pp.c
+++ b/pp.c
@@ -2813,6 +2813,9 @@ PP(pp_rand)
     NV value;
     if (MAXARG < 1)
 	value = 1.0;
+    else if (!TOPs) {
+	value = 1.0; (void)POPs;
+    }
     else
 	value = POPn;
     if (value == 0.0)