&CORE::reset()

This commit allows &CORE::reset to be called through references and
via ampersand syntax.  pp_reset 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 reset how many arguments it’s
actually getting.  See commit 0163043a for details.

1 files changed, 2 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 971e78b451..67b11e3228 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2007,7 +2007,8 @@ PP(pp_reset)
 {
     dVAR;
     dSP;
-    const char * const tmps = (MAXARG < 1) ? (const char *)"" : POPpconstx;
+    const char * const tmps =
+	(MAXARG < 1 || (!TOPs && !POPs)) ? (const char *)"" : POPpconstx;
     sv_reset(tmps, CopSTASH(PL_curcop));
     PUSHs(&PL_sv_yes);
     RETURN;