In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9e380ad423cc802b5d0aaef3b223a4f53b62b307?hp=422d053b400e15f0154beccd0cbcd57e26d0a23a>
- Log ----------------------------------------------------------------- commit 9e380ad423cc802b5d0aaef3b223a4f53b62b307 Author: Nicholas Clark <[email protected]> Date: Sun Oct 24 15:51:05 2010 +0200 B::cchar can be implemented as an ALIAS of B::cstring. ----------------------------------------------------------------------- Summary of changes: ext/B/B.xs | 9 ++------- 1 files 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() -- Perl5 Master Repository
