From 0e9700df31679b575960004d0c9d53e4f67341b3 Mon Sep 17 00:00:00 2001 From: Gerard Goossen Date: Wed, 31 Aug 2011 15:55:26 +0200 Subject: Use OPpDEREF for lvalue sub, such that the flags contains the deref type, instead of deriving it from the opchain. Also contains a test where using the opchain to determine the deref type fails. --- cop.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'cop.h') diff --git a/cop.h b/cop.h index 6512451f67..8cd8a8ae25 100644 --- a/cop.h +++ b/cop.h @@ -643,7 +643,7 @@ struct block_format { ? 0 : Perl_was_lvalue_sub(aTHX); \ PUSHSUB_BASE(cx) \ cx->blk_u16 = PL_op->op_private & \ - (phlags|OPpENTERSUB_DEREF); \ + (phlags|OPpDEREF); \ } /* variant for use by OP_DBSTATE, where op_private holds hint bits */ -- cgit v1.2.1