This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
allow *FOO{BAR}[0] etc. (without intervening arrow)
authorStephen McCamant <smcc@mit.edu>
Sun, 2 Aug 1998 16:16:50 +0000 (11:16 -0500)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 2 Aug 1998 23:15:00 +0000 (23:15 +0000)
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

Changes
op.c

diff --git a/Changes b/Changes
index c1e9dd3..df932fd 100644 (file)
--- 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 (file)
--- 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;