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

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 769336a..92b45b4 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -811,16 +811,10 @@ save_BEGINs()
 SV *
 cstring(sv)
        SV *    sv
+    ALIAS:
+       perlstring = 1
     CODE:
-       RETVAL = cstring(aTHX_ sv, 0);
-    OUTPUT:
-       RETVAL
-
-SV *
-perlstring(sv)
-       SV *    sv
-    CODE:
-       RETVAL = cstring(aTHX_ sv, 1);
+       RETVAL = cstring(aTHX_ sv, ix);
     OUTPUT:
        RETVAL