diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-01-14 15:37:05 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-01-14 15:37:05 +0000 |
| commit | a57c668520b9767f7a6c93e0a396cee792a98be5 (patch) | |
| tree | 1cff2268cec4757529a9eb23e4d7274b0e18fcd9 /pp_ctl.c | |
| parent | b595cd4b73a6e1bd45865d6446c34d4019c740d1 (diff) | |
| download | perl-a57c668520b9767f7a6c93e0a396cee792a98be5.tar.gz | |
Back out the {ENTER,LEAVE}_with_name("sub") part of d343c3ef45381352 for now.
It's conflicting with an established pattern in XS code, working around the
inability of the XS SCOPE: keyword to actually provide anything useful.
The minor amount of extra debugging it gives here is not worth the external
trouble it causes.
Revisit this once we can provide a meaningful option to disable the
ENTER/LEAVE around XSUBs.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1881,7 +1881,7 @@ PP(pp_dbstate) /* don't do recursive DB::DB call */ return NORMAL; - ENTER_with_name("sub"); + ENTER; SAVETMPS; SAVEI32(PL_debug); @@ -1896,7 +1896,7 @@ PP(pp_dbstate) (void)(*CvXSUB(cv))(aTHX_ cv); CvDEPTH(cv)--; FREETMPS; - LEAVE_with_name("sub"); + LEAVE; return NORMAL; } else { @@ -2559,7 +2559,7 @@ PP(pp_goto) PUSHMARK(mark); PUTBACK; (void)(*CvXSUB(cv))(aTHX_ cv); - LEAVE_with_name("sub"); + LEAVE; return retop; } else { |