From 14dd3ad8c9bf82cf09798a22cc89a9862dfd6d1a Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 20 Feb 2000 16:07:38 +0000
Subject: make change#3386 a build-time option (avoids problems due to
 perl_run() longjmping out)

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

p4raw-id: //depot/perl@5162
---
 util.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'util.c')

diff --git a/util.c b/util.c
index 6359125ef8..1525d53af1 100644
--- a/util.c
+++ b/util.c
@@ -3488,7 +3488,9 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
     /* parent thread's data needs to be locked while we make copy */
     MUTEX_LOCK(&t->mutex);
 
+#ifdef PERL_FLEXIBLE_EXCEPTIONS
     PL_protect = t->Tprotect;
+#endif
 
     PL_curcop = t->Tcurcop;       /* XXX As good a guess as any? */
     PL_defstash = t->Tdefstash;   /* XXX maybe these should */
-- 
cgit v1.2.1