diff options
author | Chip Salzenberg <chip@pobox.com> | 1999-03-09 06:51:57 -0500 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-11 02:49:07 +0000 |
commit | 312caa8e97f1c7ee342a9895c2f0e749625b4929 (patch) | |
tree | d17fe60b1f9973745e8a7a4dc5180e630f87d561 /util.c | |
parent | 810b8aa5436a934d1a2016588cbacf9b55463c40 (diff) | |
download | perl-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.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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? */ |