diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-20 15:29:01 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-20 15:29:01 +0000 |
| commit | 921cb7f07252a906fe2594b618ceb15ee9bd370e (patch) | |
| tree | 91db4aee474923bd4e74914cb8020876d671de4e /ext/Devel/DProf/DProf.xs | |
| parent | 51e5ddcf11fb0f6bb47e63ed55c7ffc82e8891e9 (diff) | |
| download | perl-921cb7f07252a906fe2594b618ceb15ee9bd370e.tar.gz | |
DProf tweak
p4raw-id: //depot/perl@3712
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; |