From 9e380ad423cc802b5d0aaef3b223a4f53b62b307 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 24 Oct 2010 15:51:05 +0200
Subject: [PATCH] B::cchar can be implemented as an ALIAS of B::cstring.

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

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 5b1688a..138ec05 100644
--- 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()
-- 
2.7.4