This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Feel-good cleanup.
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index a0c11a9..7668155 100644 (file)
--- 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;