summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-08-25 18:10:53 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-08-25 23:02:10 -0700
commit9d3c658e5c246089e541ed0d652aaccf018f16e9 (patch)
treea8b31caa71624daad4c4a8bd0bab38d19ec35532 /gv.c
parent2f8d417bd28b4abb5998a05fa0a9ebeb970ca845 (diff)
downloadperl-9d3c658e5c246089e541ed0d652aaccf018f16e9.tar.gz
&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.
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 0ecbf96036..6f1756c96c 100644
--- a/gv.c
+++ b/gv.c
@@ -1353,7 +1353,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
return gv;
case KEY_chdir:
case KEY_chomp: case KEY_chop:
- case KEY_each: case KEY_eof: case KEY_exec: case KEY_exit:
+ case KEY_each: case KEY_eof: case KEY_exec:
case KEY_getpgrp: case KEY_gmtime:
case KEY_index: case KEY_keys:
case KEY_localtime: case KEY_lock: case KEY_lstat: