pp_dbstate: do SAVETMPS etc in both branches

pp_dbstate() does an XS or non-XS subroutine call to &DB::DB;
move the SAVETMPS from before the (if CvISXSUB(cv)) test to the head of
both branches. This duplication of code is currently a noop, but will
shortly allow us to handle things differently in the two branches.

diff --git a/pp_ctl.c b/pp_ctl.c
index 13781e2..8ae7d39 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1957,7 +1957,6 @@ PP(pp_dbstate)
            return NORMAL;
 
        ENTER;
-       SAVETMPS;
 
        SAVEI32(PL_debug);
        SAVESTACK_POS();
@@ -1966,6 +1965,7 @@ PP(pp_dbstate)
        SPAGAIN;
 
        if (CvISXSUB(cv)) {
+            SAVETMPS;
            PUSHMARK(SP);
            (void)(*CvXSUB(cv))(aTHX_ cv);
            FREETMPS;
@@ -1975,6 +1975,7 @@ PP(pp_dbstate)
        else {
            PUSHBLOCK(cx, CXt_SUB, SP);
            PUSHSUB_DB(cx);
+            SAVETMPS;
            cx->blk_sub.retop = PL_op->op_next;
            CvDEPTH(cv)++;
            if (CvDEPTH(cv) >= 2) {