1 files changed, 1 insertions, 1 deletions
diff --git a/cop.h b/cop.h
index 01e83f4c1f..086cd22dd0 100644
--- a/cop.h
+++ b/cop.h
@@ -605,7 +605,7 @@ struct block_format {
 	   (PL_op->op_flags & OPf_WANT)					\
 	       ? OPpENTERSUB_LVAL_MASK					\
 	       : !(PL_op->op_private & OPpENTERSUB_LVAL_MASK)		\
-	           ? 0 : Perl_was_lvalue_sub(aTHX);			\
+	           ? 0 : (U8)Perl_was_lvalue_sub(aTHX);			\
 	PUSHSUB_BASE(cx)						\
 	cx->blk_u16 = PL_op->op_private &				\
 	                  (phlags|OPpDEREF);				\