From 84556172294db864f27a4b5df6dac9127e1e7205 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 24 Oct 2010 13:35:06 +0200
Subject: [PATCH] B::perlstring can be implemented as an ALIAS of B::cstring.

---
 ext/B/B.xs | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

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
 
-- 
1.8.3.1