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 (file)
--- 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 */