This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 27a1613) | patch
Perl_newATTRSUB_x: cast a bool arg
authorDavid Mitchell <davem@iabyn.com>
Wed, 25 Nov 2015 15:58:20 +0000 (15:58 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 25 Nov 2015 15:58:20 +0000 (15:58 +0000)
commita26e954ea12fcd55da1c9bd121788f0914a7a4aa
tree0d331602d90afc42d2d5a3a177560d1b3cca4c8ftree | snapshot
parent27a1613c1c30c85a73763ac61826d0c2e5d891f5commit | diff
Perl_newATTRSUB_x: cast a bool arg

S_op_const_sv() expects a bool arg, so cast accordingly.
(Otherwise if the flag bit is > bit 7, it could get truncated to 0)
op.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.