summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-08-26 22:28:52 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-08-26 22:28:52 -0700
commit17008668bc1759e4a1ff55f42c3d738e5534b5dc (patch)
treeaf43fc270c8f831d82cf727d09f859085d3b61fa /gv.c
parentcb85b2dba9dd71becf505fd4190513a7648f1ff8 (diff)
downloadperl-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 &ampersand 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.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/gv.c b/gv.c
index 91d4cffc5e..cbbf326136 100644
--- a/gv.c
+++ b/gv.c
@@ -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: