diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-07-25 23:55:41 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-07-26 00:09:04 -0700 |
| commit | 1ecbeecf75755d93718667baf356b00f2037712c (patch) | |
| tree | 046768dd078e21ca3ac778364ab190fef2120fb8 /proto.h | |
| parent | 7de68bd5ba804db7c26eb42d7496401202a00b80 (diff) | |
| download | perl-1ecbeecf75755d93718667baf356b00f2037712c.tar.gz | |
core_prototype: Remove special cases for lock and tie
core_prototype now calls scalar_mod_type in the OA_SCALARREF case.
For core functions, the only thing distinguishing the \$ and
\[$@%*] cases during parsing is the call to scalar_mod_type in
op_lvalue_flags. So calling this same function here just works.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -5575,10 +5575,7 @@ STATIC void S_process_special_blocks(pTHX_ const char *const fullname, GV *const STATIC OP* S_ref_array_or_hash(pTHX_ OP* cond); STATIC OP* S_refkids(pTHX_ OP* o, I32 type); STATIC bool S_scalar_mod_type(const OP *o, I32 type) - __attribute__warn_unused_result__ - __attribute__nonnull__(1); -#define PERL_ARGS_ASSERT_SCALAR_MOD_TYPE \ - assert(o) + __attribute__warn_unused_result__; STATIC OP* S_scalarboolean(pTHX_ OP *o) __attribute__nonnull__(pTHX_1); |