diff options
| author | Stephen McCamant <smcc@mit.edu> | 1999-07-23 10:55:22 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 10:44:11 +0000 |
| commit | fad39ff13c300fe483c6155ea2883280e12fc89c (patch) | |
| tree | 5ced2802fa81825ad5bc148be165aa3a8e20a7ac /op.c | |
| parent | 43192e07925c626b8d615aff545160df8bd7c3f8 (diff) | |
| download | perl-fad39ff13c300fe483c6155ea2883280e12fc89c.tar.gz | |
allow arrow omission in $foo[10]->('foo') etc. (but not in
foo()->()); rework grammar to remove conflicts
Message-ID: <14232.54970.771570.548676@alias-2.pr.mcs.net>
Subject: [PATCH _57, long] Re: optional arrow asymmetry
p4raw-id: //depot/perl@3767
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 21 |
1 files changed, 0 insertions, 21 deletions
@@ -107,27 +107,6 @@ S_no_bareword_allowed(pTHX_ OP *o) ++PL_error_count; } -void -Perl_assertref(pTHX_ OP *o) -{ - int type = o->op_type; - if (type != OP_AELEM && type != OP_HELEM && type != OP_GELEM) { - yyerror(Perl_form(aTHX_ "Can't use subscript on %s", PL_op_desc[type])); - if (type == OP_ENTERSUB || type == OP_RV2HV || type == OP_PADHV) { - dTHR; - SV *msg = sv_2mortal( - Perl_newSVpvf(aTHX_ "(Did you mean $ or @ instead of %c?)\n", - type == OP_ENTERSUB ? '&' : '%')); - if (PL_in_eval & EVAL_WARNONLY) - Perl_warn(aTHX_ "%_", msg); - else if (PL_in_eval) - sv_catsv(GvSV(PL_errgv), msg); - else - PerlIO_write(PerlIO_stderr(), SvPVX(msg), SvCUR(msg)); - } - } -} - /* "register" allocation */ PADOFFSET |