summaryrefslogtreecommitdiff
path: root/run.c
diff options
context:
space:
mode:
authorShawn M Moore <code@sartak.org>2012-08-24 10:35:08 +0200
committerFather Chrysostomos <sprout@cpan.org>2012-08-28 07:13:44 -0700
commitfe83c362fb182e46bac02c1bd1cf0b8d82c9f1bf (patch)
tree9d7da5e5a98ef9a21b90f1067f175b54145e3de6 /run.c
parent9e7f031c1856270daeb95d2b6db9817469855476 (diff)
downloadperl-fe83c362fb182e46bac02c1bd1cf0b8d82c9f1bf.tar.gz
"op-entry" DTrace probe
Diffstat (limited to 'run.c')
-rw-r--r--run.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/run.c b/run.c
index 8c2622a277..01b5f069f9 100644
--- a/run.c
+++ b/run.c
@@ -38,7 +38,9 @@ Perl_runops_standard(pTHX)
{
dVAR;
OP *op = PL_op;
+ OP_ENTRY_PROBE(OP_NAME(op));
while ((PL_op = op = op->op_ppaddr(aTHX))) {
+ OP_ENTRY_PROBE(OP_NAME(op));
}
TAINT_NOT;