In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/847ded71f84f381516f5a2852e269aa8f2728155?hp=af97858bef74fa34122717ad257cf22d86684b6f>
- Log ----------------------------------------------------------------- commit 847ded71f84f381516f5a2852e269aa8f2728155 Author: Nicholas Clark <[email protected]> Date: Wed Dec 1 10:23:27 2010 +0000 Avoid two compiler warnings in B::cstring, spotted by Steve Hay's smoker. ----------------------------------------------------------------------- Summary of changes: ext/B/B.pm | 2 +- ext/B/B.xs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ext/B/B.pm b/ext/B/B.pm index fead6a4..8f3c975 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -15,7 +15,7 @@ require Exporter; # walkoptree comes from B.xs BEGIN { - $B::VERSION = '1.26'; + $B::VERSION = '1.27'; @B::EXPORT_OK = qw(minus_c ppname save_BEGINs class peekop cast_I32 cstring cchar hash threadsv_names diff --git a/ext/B/B.xs b/ext/B/B.xs index 2a950d3..b439236 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -812,14 +812,14 @@ minus_c() else PL_minus_c = TRUE; -SV * +void cstring(sv) SV * sv ALIAS: perlstring = 1 cchar = 2 PPCODE: - PUSHs(ix == 2 ? cchar(aTHX_ sv) : cstring(aTHX_ sv, ix)); + PUSHs(ix == 2 ? cchar(aTHX_ sv) : cstring(aTHX_ sv, (bool)ix)); void threadsv_names() -- Perl5 Master Repository
