From: David Mitchell Date: Sat, 9 Jan 2010 11:08:26 +0000 (+0000) Subject: PL_sv_serial only exists ifdef DEBUG_LEAKING_SCALARS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02d9cd5ef82ff73ba121632a5e98252e4d298ed5;p=p5sagit%2Fp5-mst-13.2.git PL_sv_serial only exists ifdef DEBUG_LEAKING_SCALARS Fix for 4149198fba64273f3fea8fc073ccb5d080059f4a which broke debugging build. Whoops! --- diff --git a/sv.c b/sv.c index c2757d6..108a1b1 100644 --- a/sv.c +++ b/sv.c @@ -11836,7 +11836,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_sig_pending = 0; PL_parser = NULL; Zero(&PL_debug_pad, 1, struct perl_debug_pad); +# ifdef DEBUG_LEAKING_SCALARS PL_sv_serial = (((U32)my_perl >> 2) & 0xfff) * 1000000; +# endif #else /* !DEBUGGING */ Zero(my_perl, 1, PerlInterpreter); #endif /* DEBUGGING */