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

1 files changed, 0 insertions, 7 deletions

diff --git a/perlapi.c b/perlapi.c
index 78d1bce4e1..3e7e0abb53 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -77,13 +77,6 @@ Perl_apply(pTHXo_ I32 type, SV** mark, SV** sp)
     return ((CPerlObj*)pPerl)->Perl_apply(type, mark, sp);
 }
 
-#undef  Perl_assertref
-void
-Perl_assertref(pTHXo_ OP* o)
-{
-    ((CPerlObj*)pPerl)->Perl_assertref(o);
-}
-
 #undef  Perl_avhv_exists_ent
 bool
 Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash)