| … | |
… | |
| 24 | PL_op->op_ppaddr = old_entersub; |
24 | PL_op->op_ppaddr = old_entersub; |
| 25 | |
25 | |
| 26 | // only simple cv calls for now |
26 | // only simple cv calls for now |
| 27 | if (!PL_perldb && !PL_tainting |
27 | if (!PL_perldb && !PL_tainting |
| 28 | && SvTYPE (sv) == SVt_PVCV && !CvXSUB (sv) |
28 | && SvTYPE (sv) == SVt_PVCV && !CvXSUB (sv) |
|
|
29 | && CvSTART (sv) // must exist |
| 29 | && CvSTART (sv)->op_type != OP_NULL) // shield against compiling an already-compiled op |
30 | && CvSTART (sv)->op_type != OP_NULL) // shield against compiling an already-compiled op |
| 30 | { |
31 | { |
| 31 | SV *bsv = newSViv (PTR2IV (sv)); |
32 | SV *bsv = newSViv (PTR2IV (sv)); |
| 32 | |
33 | |
| 33 | ENTER; |
34 | ENTER; |
