summaryrefslogtreecommitdiff
path: root/ext/Devel/DProf/DProf.xs
diff options
context:
space:
mode:
Diffstat (limited to 'ext/Devel/DProf/DProf.xs')
-rw-r--r--ext/Devel/DProf/DProf.xs2
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;