diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-26 12:40:13 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-26 12:40:13 -0700 |
| commit | d3e26383b699ba248aece0da481bcd07d3e4aa60 (patch) | |
| tree | a3c55f0365e90c6d9ff8f0e929ac1b68c514ab12 /gv.c | |
| parent | e937c40d399bae93789feb66422b1547265ce0e0 (diff) | |
| download | perl-d3e26383b699ba248aece0da481bcd07d3e4aa60.tar.gz | |
&CORE::index() and &CORE::rindex()
This commit allows &CORE::index and &CORE::rindex to be called through
references and via ampersand syntax. pp_index is modified to take
into account the nulls pushed on to the stack in pp_coreargs, which
happens because pp_coreargs has no other way to tell pp_index how many
arguments it’s actually getting. See commit 0163043a for details.
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1354,12 +1354,12 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, case KEY_chdir: case KEY_chomp: case KEY_chop: case KEY_each: case KEY_eof: case KEY_exec: - case KEY_index: case KEY_keys: + case KEY_keys: case KEY_lock: case KEY_lstat: case KEY_mkdir: case KEY_open: case KEY_pop: case KEY_push: case KEY_rand: case KEY_read: case KEY_recv: case KEY_reset: - case KEY_rindex: case KEY_select: case KEY_send: + case KEY_select: case KEY_send: case KEY_setpgrp: case KEY_shift: case KEY_sleep: case KEY_splice: case KEY_srand: case KEY_stat: case KEY_substr: |