diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-12-07 13:13:20 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-12-07 18:47:16 -0500 |
| commit | 71c165d460f27c6ad74273d9f2f39a6d50ba2ed2 (patch) | |
| tree | 28b013bc4e9d8c110a5c29fcdb10077d29ce7875 /pad.c | |
| parent | 5306a04c0e61b1e841a5e59a2548ecbfb0c6db77 (diff) | |
| download | perl-71c165d460f27c6ad74273d9f2f39a6d50ba2ed2.tar.gz | |
Use cBOOL.
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |