diff options
Diffstat (limited to 'ext/Devel/DProf/DProf.xs')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 1a41c21c2b..07212d3f96 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -285,6 +285,7 @@ prof_mark( opcode ptype ) #ifdef PERLDBf_NONAME { + dTHX; SV **svp; char *gname, *pname; static U32 lastid; @@ -419,6 +420,7 @@ static void test_time(clock_t *r, clock_t *u, clock_t *s) { dTHR; + dTHX; CV *cv = perl_get_cv("Devel::DProf::NONESUCH_noxs", FALSE); int i, j, k = 0; HV *oldstash = curstash; |