In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/06ccdc0cc07d34934eaa2b248a061504e584c780?hp=bdb0ae96bbbe0efcef6147fd6497bd49971334ed>
- Log -----------------------------------------------------------------
commit 06ccdc0cc07d34934eaa2b248a061504e584c780
Author: Father Chrysostomos <spr...@cpan.org>
Date: Fri Aug 12 14:35:33 2016 -0700
universal.c:XS_re_regnames_count: redundant code
If we croak when items != 0, then SP -= items is a no-op, as is PUTBACK.
-----------------------------------------------------------------------
Summary of changes:
universal.c | 3 ---
1 file changed, 3 deletions(-)
diff --git a/universal.c b/universal.c
index 0fcaea7..39745d9 100644
--- a/universal.c
+++ b/universal.c
@@ -854,9 +854,6 @@ XS(XS_re_regnames_count)
if (items != 0)
croak_xs_usage(cv, "");
- SP -= items;
- PUTBACK;
-
if (!rx)
XSRETURN_UNDEF;
--
Perl5 Master Repository
