In Perl_feature_is_enabled() use cBOOL to convert the pointer to a "bool".

On some platforms which don't have a (real) bool type, bool is actually a
char, and hence (sadly) it's correct for the compiler to truncate when
assigning to it, instead of what the programmer thought was going to happen
(testing zero or not). In Perl_feature_is_enabled(), the expression is a
pointer, so if it converts to an integer with the bottom 8 bits zero, then
on these platforms it would truncate to "false". Not what was expected.

1 files changed, 2 insertions, 5 deletions

diff --git a/toke.c b/toke.c
index 6766c0561c..fa4c9c95ca 100644
--- a/toke.c
+++ b/toke.c
@@ -614,11 +614,8 @@ Perl_feature_is_enabled(pTHX_ const char *const name, STRLEN namelen)
 	return FALSE;
     memcpy(&he_name[8], name, namelen);
 
-    return
-	cop_hints_fetch_pvn(
-	    PL_curcop, he_name, 8 + namelen, 0,
-	    REFCOUNTED_HE_EXISTS
-	);
+    return cBOOL(cop_hints_fetch_pvn(PL_curcop, he_name, 8 + namelen, 0,
+				     REFCOUNTED_HE_EXISTS));
 }
 
 /*