summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorStephen McCamant <smcc@mit.edu>1998-08-02 11:16:50 -0500
committerGurusamy Sarathy <gsar@cpan.org>1998-08-02 23:15:00 +0000
commit136254bc5c4bebd1c4c4acc6f09a4ea0ed7fd514 (patch)
treec9072155bc41ea39ad0529e6e181fedc57cef5f8 /op.c
parentba1ac97691f605d2aaa9008a954c1aa8ac884815 (diff)
downloadperl-136254bc5c4bebd1c4c4acc6f09a4ea0ed7fd514.tar.gz
allow *FOO{BAR}[0] etc. (without intervening arrow)
Message-ID: <13764.54929.60137.104838@alias-2.pr.mcs.net> Subject: [PATCH] Re: Minor nit in glob notation p4raw-id: //depot/maint-5.005/perl@1716
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index f2851930a6..9c4501c50c 100644
--- a/op.c
+++ b/op.c
@@ -92,7 +92,7 @@ void
assertref(OP *o)
{
int type = o->op_type;
- if (type != OP_AELEM && type != OP_HELEM) {
+ if (type != OP_AELEM && type != OP_HELEM && type != OP_GELEM) {
yyerror(form("Can't use subscript on %s", op_desc[type]));
if (type == OP_ENTERSUB || type == OP_RV2HV || type == OP_PADHV) {
dTHR;