From 136254bc5c4bebd1c4c4acc6f09a4ea0ed7fd514 Mon Sep 17 00:00:00 2001 From: Stephen McCamant Date: Sun, 2 Aug 1998 11:16:50 -0500 Subject: 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 --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'op.c') 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; -- cgit v1.2.1