1 files changed, 1 insertions, 1 deletions
diff --git a/pad.c b/pad.c
index 9511c39b13..6122b27f0b 100644
--- a/pad.c
+++ b/pad.c
@@ -2431,7 +2431,7 @@ Perl_padlist_dup(pTHX_ PADLIST *srcpad, CLONE_PARAMS *param)
 
     PERL_ARGS_ASSERT_PADLIST_DUP;
 
-    cloneall = param->flags & CLONEf_COPY_STACKS;
+    cloneall = cBOOL(param->flags & CLONEf_COPY_STACKS);
     assert (SvREFCNT(PadlistARRAY(srcpad)[1]) == 1);
 
     max = cloneall ? PadlistMAX(srcpad) : 1;