summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-03-02 10:23:43 +0000
committerDavid Mitchell <davem@iabyn.com>2016-03-02 10:23:43 +0000
commitd1ac280ff42df46be47d0e0ef3a0730433a35cfb (patch)
tree8e5a8423bdfc55d1e306b84a4b99bb8cc520e0d2 /pp_hot.c
parent9a3e03386d8a1c1a9919f20c82d1d19b1e179525 (diff)
downloadperl-d1ac280ff42df46be47d0e0ef3a0730433a35cfb.tar.gz
use cBOOL() in pp_subst()
Now that we have that macro, use it.
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 5a6f95c45d..23e5d87f86 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2911,9 +2911,7 @@ PP(pp_subst)
SvGETMAGIC(TARG); /* must come before cow check */
#ifdef PERL_ANY_COW
- /* Awooga. Awooga. "bool" types that are actually char are dangerous,
- because they make integers such as 256 "false". */
- is_cow = SvIsCOW(TARG) ? TRUE : FALSE;
+ is_cow = cBOOL(SvIsCOW(TARG));
#endif
if (!(rpm->op_pmflags & PMf_NONDESTRUCT)) {
#ifndef PERL_ANY_COW