From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 20 Jul 1999 15:29:01 +0000 (+0000)
Subject: DProf tweak
X-Git-Tag: upstream/5.16.3~36245
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=921cb7f07252a906fe2594b618ceb15ee9bd370e;p=platform%2Fupstream%2Fperl.git

DProf tweak

p4raw-id: //depot/perl@3712
---

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;