Avoid two compiler warnings in B::cstring, spotted by Steve Hay's smoker.

diff --git a/ext/B/B.pm b/ext/B/B.pm
index fead6a4..8f3c975 100644 (file)
--- 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 (file)
--- 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()