From 6c3182a5d146d89e95f0ea81076255af93dd834f Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 11 Mar 2003 06:01:28 +0000 Subject: [PATCH] Add missing intrpvar clonings to perl_clone. Also move the IDBassertion to the end since there's no particular reason to break bincompat for that. p4raw-id: //depot/perl@18907 --- intrpvar.h | 3 ++- sv.c | 17 +++++++++++++++++ 2 files changed, 19 insertions(+), 1 deletion(-) diff --git a/intrpvar.h b/intrpvar.h index c020898..eb7d0da 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -122,7 +122,6 @@ PERLVAR(IDBsub, GV *) PERLVAR(IDBsingle, SV *) PERLVAR(IDBtrace, SV *) PERLVAR(IDBsignal, SV *) -PERLVAR(IDBassertion, SV *) PERLVAR(Ilineary, AV *) /* lines of script for debugger */ PERLVAR(Idbargs, AV *) /* args to call listed by caller function */ @@ -502,6 +501,8 @@ PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */ PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */ +PERLVAR(IDBassertion, SV *) + /* Don't forget to add your variable also to perl_clone()! */ /* New variables must be added to the very end, before this comment, diff --git a/sv.c b/sv.c index b4a1c5d..da994f1 100644 --- a/sv.c +++ b/sv.c @@ -11149,6 +11149,23 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_utf8_idstart = sv_dup_inc(proto_perl->Iutf8_idstart, param); PL_utf8_idcont = sv_dup_inc(proto_perl->Iutf8_idcont, param); + /* Did the locale setup indicate UTF-8? */ + PL_utf8locale = proto_perl->Iutf8_locale; + /* Unicode features (see perlrun/-C) */ + PL_unicode = proto_perl->Iunicode; + + /* Pre-5.8 signals control */ + PL_signals = proto_perl->Isignals; + + /* times() ticks per second */ + PL_clocktick = proto_perl->Iclocktick; + + /* Recursion stopper for PerlIO_find_layer */ + PL_in_load_module = proto_perl->Iin_load_module; + + /* sort() routine */ + PL_sort_RealCmp = proto_perl->Isort_RealCmp; + /* swatch cache */ PL_last_swash_hv = Nullhv; /* reinits on demand */ PL_last_swash_klen = 0; -- 2.7.4