&CORE::exit()

This commit allows &CORE::exit to be called through references and
via ampersand syntax.  pp_exit is modified to take into account the
nulls pushed on to the stack in pp_coreargs, since pp_coreargs has no
other way to tell exit how many arguments it’s actually getting.

1 files changed, 3 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 997f492be3..76786c0508 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3139,6 +3139,9 @@ PP(pp_exit)
 
     if (MAXARG < 1)
 	anum = 0;
+    else if (!TOPs) {
+	anum = 0; (void)POPs;
+    }
     else {
 	anum = SvIVx(POPs);
 #ifdef VMS