Speeding up XSUB calls up to 66%

To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199908270733.DAA16927@monk.mps.ohio-state.edu>

Addendum: it's "only" 33% speedup.

p4raw-id: //depot/cfgperl@4044

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 42ed8b201e..8ff0353491 100644
--- a/op.c
+++ b/op.c
@@ -5624,6 +5624,7 @@ Perl_ck_subr(pTHX_ OP *o)
     I32 arg = 0;
     STRLEN n_a;
 
+    o->op_private |= OPpENTERSUB_HASTARG;
     for (cvop = o2; cvop->op_sibling; cvop = cvop->op_sibling) ;
     if (cvop->op_type == OP_RV2CV) {
 	SVOP* tmpop;