diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-04-29 17:58:44 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-29 09:36:25 -0700 |
| commit | 498a02d80cfca0073bd62ad27aac793a0d5e785c (patch) | |
| tree | 0aac2d5fac55bb450e91c9f489c95abf672a940f /gv.c | |
| parent | 2a90c7c66a488294c5c30860c8d5794bb9264c30 (diff) | |
| download | perl-498a02d80cfca0073bd62ad27aac793a0d5e785c.tar.gz | |
Add &CORE::glob
I added a special case for OP_GLOB to pp_coreargs, since glob does not
have the u flag in regen/opcodes; hence PL_opargs[opnum] & OA_DEFGV is
false, even though glob does imply $_.
Adding the flag to regen/opcodes is not so simple, as the code in
ck_fun that adds the DEFSV op does not account for list ops, but
leaves op_last unchanged.
Changing ck_fun to account requires adding more code than this special
case in pp_coreargs.
OPf_SPECIAL indicates that glob was called with the CORE:: prefix.
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -462,7 +462,7 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv, case KEY_do : case KEY_dump : case KEY_else : case KEY_elsif : case KEY_END : case KEY_eq : case KEY_eval : case KEY_for : case KEY_foreach: case KEY_format: case KEY_ge : - case KEY_given : case KEY_glob : case KEY_goto : case KEY_grep : + case KEY_given : case KEY_goto : case KEY_grep : case KEY_gt : case KEY_if: case KEY_INIT: case KEY_last: case KEY_le: case KEY_local: case KEY_lt: case KEY_m : case KEY_map : case KEY_my: case KEY_ne : case KEY_next : case KEY_no: case KEY_or: case KEY_our: |