From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Mar 2003 06:01:28 +0000 (+0000)
Subject: Add missing intrpvar clonings to perl_clone.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c3182a5d146d89e95f0ea81076255af93dd834f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;