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.

1 files changed, 1 insertions, 1 deletions

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