int
Perl_runops_standard(pTHX)
{
- dVAR;
- register OP *op = PL_op;
+ OP *op = PL_op;
+ PERL_DTRACE_PROBE_OP(op);
while ((PL_op = op = op->op_ppaddr(aTHX))) {
+ PERL_DTRACE_PROBE_OP(op);
}
+ PERL_ASYNC_CHECK();
TAINT_NOT;
return 0;
}
/*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: nil
- * End:
- *
* ex: set ts=8 sts=4 sw=4 et:
*/