X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/47bf35fab2e1eb0d7c70b8443f83839a53f93fef..84556172294db864f27a4b5df6dac9127e1e7205:/ext/B/B.xs

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 769336a..92b45b4 100644
--- 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