In Perl_magic_clearsig(), only call LEAVE if we call ENTER.

(2d4fcd5e8be8d83efa948a259c49b56fc6c27ee5, reported and fixed by RT #20613,
would ENTER but not LEAVE when HAS_SIGPROCMASK was not defined.)

diff --git a/mg.c b/mg.c
index f6b6d87..54679f8 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1317,11 +1317,15 @@ Perl_magic_clearsig(pTHX_ SV *sv, MAGIC *mg)
            if(PL_psig_ptr[i]) {
                SV * const to_dec=PL_psig_ptr[i];
                PL_psig_ptr[i]=0;
+#ifdef HAS_SIGPROCMASK
                LEAVE;
+#endif
                SvREFCNT_dec(to_dec);
            }
+#ifdef HAS_SIGPROCMASK
            else
                LEAVE;
+#endif
        }
     }
     return 0;