diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-04-26 20:38:37 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-29 09:36:24 -0700 |
| commit | d885f758c395fc9ced8e329d176848c477181d17 (patch) | |
| tree | 3d3b14386f714a82d9a3df45ecddf93bfc611774 /gv.c | |
| parent | 6c871ae8e236db6f8ab52923bb5d23408e69162e (diff) | |
| download | perl-d885f758c395fc9ced8e329d176848c477181d17.tar.gz | |
Add &CORE::defined
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -455,12 +455,10 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv, if (!code) return NULL; /* Not a keyword */ switch (code < 0 ? -code : code) { /* no support for \&CORE::infix; - no support for funcs that take labels, as their parsing is - weird; - no support (yet) for keywords that are not overridable */ + no support for funcs that do not parse like funcs */ case KEY___DATA__: case KEY___END__: case KEY_and: case KEY_AUTOLOAD: case KEY_BEGIN : case KEY_CHECK : case KEY_cmp: case KEY_CORE : - case KEY_default : case KEY_defined: case KEY_delete: case KEY_DESTROY: + case KEY_default : case KEY_delete : case KEY_DESTROY: case KEY_do : case KEY_dump : case KEY_else : case KEY_elsif : case KEY_END : case KEY_eq : case KEY_eval : case KEY_exists : case KEY_for : case KEY_foreach: case KEY_format: case KEY_ge : @@ -478,7 +476,7 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv, case KEY_x : case KEY_xor : case KEY_y : return NULL; case KEY_chdir: - case KEY_chomp: case KEY_chop: + case KEY_chomp: case KEY_chop: case KEY_defined: case KEY_each: case KEY_eof: case KEY_exec: case KEY_keys: case KEY_lstat: |