From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 24 Oct 2010 13:51:05 +0000 (+0200)
Subject: B::cchar can be implemented as an ALIAS of B::cstring.
X-Git-Tag: accepted/trunk/20130322.191538~7194
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9e380ad423cc802b5d0aaef3b223a4f53b62b307;p=platform%2Fupstream%2Fperl.git

B::cchar can be implemented as an ALIAS of B::cstring.
---

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()