diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-11-15 19:48:09 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-16 13:42:44 +0000 |
| commit | bd16a5f0b030a6752676e07b488b3ba891d6e8f7 (patch) | |
| tree | e1d64b1d5eef7a420cafd8f9946f0229b5b9bc99 /ext/Devel/Peek/Peek.xs | |
| parent | 8a20485cc87712d932e15dd6a022b0240d779a6f (diff) | |
| download | perl-bd16a5f0b030a6752676e07b488b3ba891d6e8f7.tar.gz | |
runtime runops switch
Message-ID: <20011116004809.A934@math.ohio-state.edu>
p4raw-id: //depot/perl@13044
Diffstat (limited to 'ext/Devel/Peek/Peek.xs')
| -rw-r--r-- | ext/Devel/Peek/Peek.xs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs index a2a4186ab8..a1c297071a 100644 --- a/ext/Devel/Peek/Peek.xs +++ b/ext/Devel/Peek/Peek.xs @@ -3,6 +3,18 @@ #include "perl.h" #include "XSUB.h" +bool +_runops_debug(int flag) +{ + dTHX; + bool d = PL_runops == MEMBER_TO_FPTR(Perl_runops_debug); + + if (flag >= 0) + PL_runops + = MEMBER_TO_FPTR(flag ? Perl_runops_debug : Perl_runops_standard); + return d; +} + SV * DeadCode(pTHX) { @@ -400,3 +412,6 @@ MODULE = Devel::Peek PACKAGE = Devel::Peek PREFIX = _ SV * _CvGV(cv) SV *cv + +bool +_runops_debug(int flag = -1) |