From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 16 Oct 1999 18:30:14 +0000 (+0000)
Subject: another bug in change#3386 (CATCH_SET wasn't reverted correctly)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0253cb4104ff1121338d661bd3f918b6225bd25b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;