summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorSteve Hay <steve.m.hay@googlemail.com>2013-01-14 17:59:55 +0000
committerSteve Hay <steve.m.hay@googlemail.com>2013-01-14 18:00:13 +0000
commit8f939fab8ea456dff01a2f5c368b664623f9293b (patch)
tree95cb9bddf86e7d1f974a029689587777f244a62f /cop.h
parent5e0a247b35271159d629ea8562732e0993ed4594 (diff)
downloadperl-8f939fab8ea456dff01a2f5c368b664623f9293b.tar.gz
Silence a couple of warnings
("'initializing' : conversion from 'I32' to 'U8', possible loss of data" and "formal parameter n different from declaration".)
Diffstat (limited to 'cop.h')
-rw-r--r--cop.h2
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); \