another bug in change#3386 (CATCH_SET wasn't reverted correctly)

p4raw-link: @3386 on //depot/perl: 312caa8e97f1c7ee342a9895c2f0e749625b4929

p4raw-id: //depot/perl@4397

diff --git a/perl.c b/perl.c
index a117b7b..2d41154 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1244,7 +1244,7 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags)
        CATCH_SET(TRUE);
        call_xbody((OP*)&myop, FALSE);
        retval = PL_stack_sp - (PL_stack_base + oldmark);
-       CATCH_SET(FALSE);
+       CATCH_SET(oldcatch);
     }
     else {
        cLOGOP->op_other = PL_op;