allow AV/HV dereferences on pseudohashes ($ph->{foo}[1], etc.)

p4raw-id: //depot/perl@3335

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 7e3beb2a9b..689873166b 100644
--- a/op.c
+++ b/op.c
@@ -5588,7 +5588,7 @@ peep(register OP *o)
 	    char *key;
 	    STRLEN keylen;
 	
-	    if (o->op_private & (OPpDEREF_HV|OPpDEREF_AV|OPpLVAL_INTRO)
+	    if ((o->op_private & (OPpLVAL_INTRO))
 		|| ((BINOP*)o)->op_last->op_type != OP_CONST)
 		break;
 	    rop = (UNOP*)((BINOP*)o)->op_first;