This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
another bug in change#3386 (CATCH_SET wasn't reverted correctly)
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 16 Oct 1999 18:30:14 +0000 (18:30 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 16 Oct 1999 18:30:14 +0000 (18:30 +0000)
p4raw-link: @3386 on //depot/perl: 312caa8e97f1c7ee342a9895c2f0e749625b4929

p4raw-id: //depot/perl@4397

perl.c

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;