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

diff --git a/intrpvar.h b/intrpvar.h
index c020898..eb7d0da 100644 (file)
--- 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 (file)
--- 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;