diff options
| author | Tom Brown <thecap@peach.ece.utexas.edu> | 2002-04-07 23:20:05 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-08 01:05:16 +0000 |
| commit | d781cccd63c46e3bedc8e8afd2d1e34fc8fa8b12 (patch) | |
| tree | b1c677261ca66c206079ceabd48a9c1d231b79e8 /ext/Devel/DProf/DProf.xs | |
| parent | ba1658c4079eb2cd76a8b742ef49644335a0fe06 (diff) | |
| download | perl-d781cccd63c46e3bedc8e8afd2d1e34fc8fa8b12.tar.gz | |
[ID 20020407.002] Bug (?) and patch for DProf
Message-Id: <E16uM6r-0002up-00@peach.ece.utexas.edu>
p4raw-id: //depot/perl@15795
Diffstat (limited to 'ext/Devel/DProf/DProf.xs')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 6 |
1 files changed, 3 insertions, 3 deletions
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); |