summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorSimon Cozens <simon@netthink.co.uk>2001-08-01 06:57:02 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-01 22:38:31 +0000
commita2efc82216efc10377cf26fd4aff1aa5e66c6687 (patch)
tree6c9717258434d9d96ae509d2c3d7cd229e20b852 /util.c
parent6bab786b4dc26323c40cdd19dc27ad4499214f4e (diff)
downloadperl-a2efc82216efc10377cf26fd4aff1aa5e66c6687.tar.gz
Pluggable optimizer
Message-ID: <20010801135702.I10442@netthink.co.uk> p4raw-id: //depot/perl@11541
Diffstat (limited to 'util.c')
-rw-r--r--util.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/util.c b/util.c
index a88c25dcbd..b615556473 100644
--- a/util.c
+++ b/util.c
@@ -3037,6 +3037,8 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
PL_reg_start_tmpl = 0;
PL_reg_poscache = Nullch;
+ PL_peepp = MEMBER_TO_FPTR(Perl_peep);
+
/* parent thread's data needs to be locked while we make copy */
MUTEX_LOCK(&t->mutex);