silence warning after "Fold join to const or stringify where possible"

VC 2003
op.c(4022) : warning C4244: '=' : conversion from 'unsigned short' to
'char', possible loss of data

diff --git a/op.c b/op.c
index 5259338..6b87a55 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4019,7 +4019,7 @@ S_fold_constants(pTHX_ OP *o)
     if (ret)
        goto nope;
 
-    folded = o->op_folded;
+    folded = cBOOL(o->op_folded);
     op_free(o);
     assert(sv);
     if (type == OP_STRINGIFY) SvPADTMP_off(sv);