&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, 5 insertions, 0 deletions

diff --git a/t/op/coresubs.t b/t/op/coresubs.t
index 9ed64ccbe7..c0f59661ec 100644
--- a/t/op/coresubs.t
+++ b/t/op/coresubs.t
@@ -320,6 +320,11 @@ test_proto $_ for qw(
  endgrent endhostent endnetent endprotoent endpwent endservent
 );
 
+test_proto 'exit';
+$tests ++;
+is runperl(prog => '&CORE::exit; END { print q-ok- }'), 'ok',
+  '&exit with no args';
+
 test_proto 'fork';
 
 test_proto 'formline';