| … | |
… | |
| 30 | // only once for now |
30 | // only once for now |
| 31 | PL_op->op_ppaddr = old_entersub; |
31 | PL_op->op_ppaddr = old_entersub; |
| 32 | |
32 | |
| 33 | // only simple cv calls for now |
33 | // only simple cv calls for now |
| 34 | if (!PL_perldb && !PL_tainting |
34 | if (!PL_perldb && !PL_tainting |
| 35 | && SvTYPE (sv) == SVt_PVCV && !CvXSUB (sv) |
35 | && SvTYPE (sv) == SVt_PVCV && !CvISXSUB (sv) |
| 36 | && CvSTART (sv) // must exist |
36 | && CvSTART (sv) // must exist |
| 37 | && CvSTART (sv)->op_type != OP_NULL) // shield against compiling an already-compiled op |
37 | && CvSTART (sv)->op_type != OP_NULL) // shield against compiling an already-compiled op |
| 38 | { |
38 | { |
| 39 | SV *bsv = newSViv (PTR2IV (sv)); |
39 | SV *bsv = newSViv (PTR2IV (sv)); |
| 40 | |
40 | |
