In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a0da4400009c3faf23e2057bcb5148c9a1f30d53?hp=07455d8f47fa4e0ff93e1de0cdd7e3ef0d3582e2>
- Log ----------------------------------------------------------------- commit a0da4400009c3faf23e2057bcb5148c9a1f30d53 Author: Nicholas Clark <[email protected]> Date: Fri Oct 22 08:47:09 2010 +0100 Merge the implementation of B::CV::{ROOT,START}. ----------------------------------------------------------------------- Summary of changes: ext/B/B.pm | 2 +- ext/B/B.xs | 12 +++--------- 2 files changed, 4 insertions(+), 10 deletions(-) diff --git a/ext/B/B.pm b/ext/B/B.pm index 3d254b5..a7a022f 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -7,7 +7,7 @@ # package B; -our $VERSION = '1.24'; +our $VERSION = '1.25'; require XSLoader; require Exporter; diff --git a/ext/B/B.xs b/ext/B/B.xs index 3d51969..e0cda16 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1913,16 +1913,10 @@ CvSTASH(cv) B::OP CvSTART(cv) B::CV cv + ALIAS: + ROOT = 1 CODE: - RETVAL = CvISXSUB(cv) ? NULL : CvSTART(cv); - OUTPUT: - RETVAL - -B::OP -CvROOT(cv) - B::CV cv - CODE: - RETVAL = CvISXSUB(cv) ? NULL : CvROOT(cv); + RETVAL = CvISXSUB(cv) ? NULL : ix ? CvROOT(cv) : CvSTART(cv); OUTPUT: RETVAL -- Perl5 Master Repository
