summaryrefslogtreecommitdiff
path: root/sv.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 /sv.c
parent6bab786b4dc26323c40cdd19dc27ad4499214f4e (diff)
downloadperl-a2efc82216efc10377cf26fd4aff1aa5e66c6687.tar.gz
Pluggable optimizer
Message-ID: <20010801135702.I10442@netthink.co.uk> p4raw-id: //depot/perl@11541
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index b8468a51ea..b08c608728 100644
--- a/sv.c
+++ b/sv.c
@@ -10268,6 +10268,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
PL_reginterp_cnt = 0;
PL_reg_starttry = 0;
+ /* Pluggable optimizer */
+ PL_peepp = proto_perl->Tpeepp;
+
if (!(flags & CLONEf_KEEP_PTR_TABLE)) {
ptr_table_free(PL_ptr_table);
PL_ptr_table = NULL;