From: David Mitchell <davem@iabyn.com>
Date: Fri, 8 Jan 2010 19:58:06 +0000 (+0000)
Subject: reset sv_serial for each new interpreter
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4149198fba64273f3fea8fc073ccb5d080059f4a;p=p5sagit%2Fp5-mst-13.2.git

reset sv_serial for each new interpreter

to a value of 0 + 1000000*interpreter_number
where interpreter_number is currently just a dirty hash of my_perl
---

diff --git a/sv.c b/sv.c
index 2683d89..38a9140 100644
--- a/sv.c
+++ b/sv.c
@@ -11836,6 +11836,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_sig_pending = 0;
     PL_parser = NULL;
     Zero(&PL_debug_pad, 1, struct perl_debug_pad);
+    PL_sv_serial = (((U32)my_perl >> 2) & 0xfff) * 1000000;
 #else	/* !DEBUGGING */
     Zero(my_perl, 1, PerlInterpreter);
 #endif	/* DEBUGGING */