This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B::perlstring can be implemented as an ALIAS of B::cstring.
[perl5.git] / ext / B / B.xs
index 769336a..92b45b4 100644 (file)
@@ -811,16 +811,10 @@ save_BEGINs()
 SV *
 cstring(sv)
        SV *    sv
 SV *
 cstring(sv)
        SV *    sv
+    ALIAS:
+       perlstring = 1
     CODE:
     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
 
     OUTPUT:
        RETVAL