From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Apr 2003 08:43:23 +0000 (+0000)
Subject: Feel-good cleanup.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57c6e6d2d6e8e7d8865d21652c7b582d8731722b;p=p5sagit%2Fp5-mst-13.2.git

Feel-good cleanup.

p4raw-id: //depot/perl@19359
---

diff --git a/intrpvar.h b/intrpvar.h
index e0adc28..d7c4269 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -504,10 +504,10 @@ PERLVAR(Iunicode, U32)	/* Unicode features: $ENV{PERL_UNICODE} or -C */
 
 PERLVAR(Isignals, U32)	/* Using which pre-5.8 signals */
 
-PERLVAR(Ireentrant_retint, int)	/* Integer return value from reentrant functions */
-
 PERLVAR(Istashcache,	HV *)		/* Cache to speed up S_method_common */
 
+PERLVAR(Ireentrant_retint, int)	/* Integer return value from reentrant functions */
+
 PERLVAR(IDBassertion,   SV *)
 
 /* Don't forget to add your variable also to perl_clone()! */
diff --git a/sv.c b/sv.c
index a0c11a9..7668155 100644
--- a/sv.c
+++ b/sv.c
@@ -11213,6 +11213,10 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     /* sort() routine */
     PL_sort_RealCmp	= proto_perl->Isort_RealCmp;
 
+    /* Not really needed/useful since the reenrant_retint is "volatile",
+     * but do it for consistency's sake. */
+    PL_reentrant_retint	= proto_perl->Ireentrant_retint;
+
     /* swatch cache */
     PL_last_swash_hv	= Nullhv;	/* reinits on demand */
     PL_last_swash_klen	= 0;