DProf tweak

p4raw-id: //depot/perl@3712

diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index 1a41c21c2b72b935c25854e62c5165d9f94cc89e..07212d3f9662e4011c3c2a9684c4c95729fecb64 100644 (file)
--- 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;