diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-08-26 22:28:52 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-26 22:28:52 -0700 |
commit | 17008668bc1759e4a1ff55f42c3d738e5534b5dc (patch) | |
tree | af43fc270c8f831d82cf727d09f859085d3b61fa /gv.c | |
parent | cb85b2dba9dd71becf505fd4190513a7648f1ff8 (diff) | |
download | perl-17008668bc1759e4a1ff55f42c3d738e5534b5dc.tar.gz |
&CORE::foo() for (sys)read and recv
These are grouped together because they all have \$ in their
prototypes.
This commit allows the subs in the CORE package under those names to
be called through references and via &ersand syntax.
The coreargs op in the subroutine is marked with the OPpSCALARMOD
flag. (scalar_mod_type in op.c returns true for these three ops,
indicating that the OA_SCALARREF parameter is \$, not \[$@%(&)*].)
pp_coreargs uses that flag to decide what arguments to reject.
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -1357,13 +1357,12 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, case KEY_keys: case KEY_lstat: case KEY_pop: - case KEY_push: case KEY_read: - case KEY_recv: case KEY_reset: + case KEY_push: case KEY_reset: 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: - case KEY_sysopen: case KEY_sysread: + case KEY_sysopen: case KEY_system: case KEY_syswrite: case KEY_tell: case KEY_tie: case KEY_tied: case KEY_truncate: case KEY_umask: case KEY_unlink: |