summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-07-17 19:12:33 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-07-17 19:12:33 +0000
commit1c01eb51ee8cc1e95e1f674a8ad0766f5498744b (patch)
treef330a0ae56dd4c011f35b335c08a05fae2ac3bc9 /op.c
parent7bb043c358def186b952b465c24a2249d64f519e (diff)
downloadperl-1c01eb51ee8cc1e95e1f674a8ad0766f5498744b.tar.gz
allow $foo{$x} and $bar[$i] for (\$) prototype
p4raw-id: //depot/perl@3681
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/op.c b/op.c
index ae6297c7e0..b605e669ab 100644
--- a/op.c
+++ b/op.c
@@ -5548,6 +5548,8 @@ Perl_ck_subr(pTHX_ OP *o)
case '$':
if (o2->op_type != OP_RV2SV
&& o2->op_type != OP_PADSV
+ && o2->op_type != OP_HELEM
+ && o2->op_type != OP_AELEM
&& o2->op_type != OP_THREADSV)
{
bad_type(arg, "scalar", gv_ename(namegv), o2);