summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorChip Salzenberg <chip@pobox.com>1999-03-09 06:51:57 -0500
committerGurusamy Sarathy <gsar@cpan.org>1999-05-11 02:49:07 +0000
commit312caa8e97f1c7ee342a9895c2f0e749625b4929 (patch)
treed17fe60b1f9973745e8a7a4dc5180e630f87d561 /util.c
parent810b8aa5436a934d1a2016588cbacf9b55463c40 (diff)
downloadperl-312caa8e97f1c7ee342a9895c2f0e749625b4929.tar.gz
gutsupport for C++ exceptions
Message-ID: <19990309115157.E7911@perlsupport.com> Subject: [PATCH 5.005] Flexible Exceptions p4raw-id: //depot/perl@3386
Diffstat (limited to 'util.c')
-rw-r--r--util.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/util.c b/util.c
index 56199d2fcc..ba77288697 100644
--- a/util.c
+++ b/util.c
@@ -2932,6 +2932,8 @@ new_struct_thread(struct perl_thread *t)
Zero(thr, 1, struct perl_thread);
#endif
+ PL_protect = FUNC_NAME_TO_PTR(default_protect);
+
thr->oursv = sv;
init_stacks(ARGS);
@@ -2975,6 +2977,8 @@ new_struct_thread(struct perl_thread *t)
/* parent thread's data needs to be locked while we make copy */
MUTEX_LOCK(&t->mutex);
+ PL_protect = t->Tprotect;
+
PL_curcop = t->Tcurcop; /* XXX As good a guess as any? */
PL_defstash = t->Tdefstash; /* XXX maybe these should */
PL_curstash = t->Tcurstash; /* always be set to main? */