From: Stephen McCamant <smcc@mit.edu>
Date: Sun, 2 Aug 1998 16:16:50 +0000 (-0500)
Subject: allow *FOO{BAR}[0] etc. (without intervening arrow)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=136254bc5c4bebd1c4c4acc6f09a4ea0ed7fd514;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/Changes b/Changes
index c1e9dd3..df932fd 100644
--- a/Changes
+++ b/Changes
@@ -78,6 +78,25 @@ Version 5.005_02        Second maintenance release of 5.005
 ----------------
 
 ____________________________________________________________________________
+[  1713] By: gsar                                  on 1998/08/02  09:28:32
+        Log: From: Ilya Zakharevich <ilya@math.ohio-state.edu>
+             Date: Sun, 2 Aug 1998 04:35:11 -0400 (EDT)
+             Message-Id: <199808020835.EAA09367@monk.mps.ohio-state.edu>
+             Subject: [PATCH 5.005_*] Better debugging output from malloc.c
+     Branch: maint-5.005/perl
+           ! malloc.c
+____________________________________________________________________________
+[  1712] By: gsar                                  on 1998/08/02  09:16:55
+        Log: fix longstanding bug in pack('u',...) (reads garbage beyond the end
+             of the input string)
+     Branch: maint-5.005/perl
+           ! pp.c
+____________________________________________________________________________
+[  1711] By: gsar                                  on 1998/08/02  08:14:25
+        Log: update Changes, tweak Porting/makerel
+     Branch: maint-5.005/perl
+           ! Changes Porting/makerel
+____________________________________________________________________________
 [  1710] By: gsar                                  on 1998/08/02  07:31:37
         Log: remove CRs from djgpp/configure.bat (Porting/makerel adds them)
      Branch: maint-5.005/perl
diff --git a/op.c b/op.c
index f285193..9c4501c 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;