From d781cccd63c46e3bedc8e8afd2d1e34fc8fa8b12 Mon Sep 17 00:00:00 2001 From: Tom Brown Date: Sun, 7 Apr 2002 23:20:05 +0000 Subject: [ID 20020407.002] Bug (?) and patch for DProf Message-Id: p4raw-id: //depot/perl@15795 --- ext/Devel/DProf/DProf.xs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ext/Devel/DProf/DProf.xs') diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index c34a366181..3380d786a5 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -521,7 +521,7 @@ XS(XS_DB_sub) /* profile only the interpreter that loaded us */ if (g_THX != aTHX) { PUSHMARK(ORIGMARK); - perl_call_sv(INT2PTR(SV*,SvIV(Sub)), GIMME | G_NODEBUG); + perl_call_sv(INT2PTR(SV*,SvIV(Sub)), GIMME_V | G_NODEBUG); } else #endif @@ -535,7 +535,7 @@ XS(XS_DB_sub) prof_mark(aTHX_ OP_ENTERSUB); PUSHMARK(ORIGMARK); - perl_call_sv(INT2PTR(SV*,SvIV(Sub)), GIMME | G_NODEBUG); + perl_call_sv(INT2PTR(SV*,SvIV(Sub)), GIMME_V | G_NODEBUG); PL_curstash = oldstash; prof_mark(aTHX_ OP_LEAVESUB); g_depth--; @@ -576,7 +576,7 @@ XS(XS_DB_goto) PUSHMARK(ORIGMARK); PL_curstash = PL_debstash; /* To disable debugging of perl_call_sv */ - perl_call_sv(Sub, GIMME); + perl_call_sv(Sub, GIMME_V); PL_curstash = oldstash; prof_mark(aTHX_ OP_LEAVESUB); -- cgit v1.2.1