summaryrefslogtreecommitdiff
path: root/ext/Devel
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-11-13 10:05:54 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-11-13 10:05:54 +0000
commitbe9180d313f8d12f0b694e575718afb3478cc34b (patch)
treee4fed3f8e7cec9c395ef9fa52dced3ed2c852fe9 /ext/Devel
parent6b8eaf932222db04db65aff99717b9c1dbd0a692 (diff)
parent971a9dd36d83520d7040365d2791ad56b6d39411 (diff)
downloadperl-be9180d313f8d12f0b694e575718afb3478cc34b.tar.gz
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4555
Diffstat (limited to 'ext/Devel')
-rw-r--r--ext/Devel/DProf/DProf.xs5
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index c5c7bd1c61..e8898cb97b 100644
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -106,7 +106,6 @@ dprof_times(struct tms *t)
XS(XS_Devel__DProf_END); /* used by prof_mark() */
-static SV * Sub; /* pointer to $DB::sub */
static PerlIO *fp; /* pointer to tmon.out file */
/* Added -JH */
@@ -259,6 +258,7 @@ prof_mark( opcode ptype )
STRLEN len;
SV *sv;
U32 id;
+ SV *Sub = GvSV(DBsub); /* name of current sub */
if( SAVE_STACK ){
if( profstack_ix + 5 > profstack_max ){
@@ -564,6 +564,7 @@ XS(XS_DB_sub)
dXSARGS;
dORIGMARK;
HV *oldstash = curstash;
+ SV *Sub = GvSV(DBsub); /* name of current sub */
SP -= items;
@@ -617,6 +618,7 @@ XS(XS_DB_goto)
dORIGMARK;
HV *oldstash = curstash;
+ SV *Sub = GvSV(DBsub); /* name of current sub */
/* SP -= items; added by xsubpp */
DBG_SUB_NOTIFY( "XS DBsub(%s)\n", SvPV(Sub, na) );
@@ -674,7 +676,6 @@ BOOT:
dowarn = warn_tmp;
}
- Sub = GvSV(DBsub); /* name of current sub */
sv_setiv( DBsingle, 0 ); /* disable DB single-stepping */
{