diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-08-26 23:33:01 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 11:24:03 +0000 |
| commit | d30110745a7a78b4c83e13a8406bad8c3e3294bf (patch) | |
| tree | cd678ffeb189d909a729f68ec3e9c10a8a48d1b3 /dump.c | |
| parent | 09bef84370e90d727656ea11ba5ee8be80e361d3 (diff) | |
| download | perl-d30110745a7a78b4c83e13a8406bad8c3e3294bf.tar.gz | |
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
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -472,8 +472,11 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) sv_catpv(tmpsv, ",AMPER"); if (o->op_private & OPpENTERSUB_DB) sv_catpv(tmpsv, ",DB"); + if (o->op_private & OPpENTERSUB_HASTARG) + sv_catpv(tmpsv, ",HASTARG"); } - switch (o->op_private & OPpDEREF) { + else + switch (o->op_private & OPpDEREF) { case OPpDEREF_SV: sv_catpv(tmpsv, ",SV"); break; |