1 files changed, 1 insertions, 1 deletions
diff --git a/cop.h b/cop.h
index d261edf13b..e6650a2400 100644
--- a/cop.h
+++ b/cop.h
@@ -640,7 +640,7 @@ struct block_format {
 	   (PL_op->op_flags & OPf_WANT)					\
 	       ? OPpENTERSUB_LVAL_MASK					\
 	       : !(PL_op->op_private & OPpENTERSUB_LVAL_MASK)		\
-	           ? 0 : was_lvalue_sub();				\
+	           ? 0 : Perl_was_lvalue_sub(aTHX);			\
 	PUSHSUB_BASE(cx)						\
 	cx->blk_u16 = PL_op->op_private &				\
 	                  (phlags|OPpENTERSUB_DEREF);			\