B::cchar can be implemented as an ALIAS of B::cstring.

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 5b1688a..138ec05 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -807,14 +807,9 @@ cstring(sv)
        SV *    sv
     ALIAS:
        perlstring = 1
+       cchar = 2
     PPCODE:
-       PUSHs(cstring(aTHX_ sv, ix));
-
-SV *
-cchar(sv)
-       SV *    sv
-    PPCODE:
-       PUSHs(cchar(aTHX_ sv));
+       PUSHs(ix == 2 ? cchar(aTHX_ sv) : cstring(aTHX_ sv, ix));
 
 void
 threadsv_names()