From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 13 Jun 2007 22:41:33 +0000 (+0000)
Subject: change #31134 broke DEBUG_LEAKING_SCALARS builds
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f24aceb1b6884bbb6aae2a756c35663bc6fac2c3;p=p5sagit%2Fp5-mst-13.2.git

change #31134 broke DEBUG_LEAKING_SCALARS builds
p4raw-link: @31134 on //depot/perl: 53a7735b62aee14640bc8ca619b4267f07d686b9

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

diff --git a/sv.c b/sv.c
index 16e5e72..4be849f 100644
--- a/sv.c
+++ b/sv.c
@@ -246,8 +246,13 @@ S_new_SV(pTHX)
     SvREFCNT(sv) = 1;
     SvFLAGS(sv) = 0;
     sv->sv_debug_optype = PL_op ? PL_op->op_type : 0;
-    sv->sv_debug_line = (U16) ((PL_parser && PL_parser->copline == NOLINE) ?
-        (PL_curcop ? CopLINE(PL_curcop) : 0) : PL_parser->copline);
+    sv->sv_debug_line = (U16) (PL_parser
+	    ?  PL_parser->copline == NOLINE
+		?  PL_curcop
+		    ? CopLINE(PL_curcop)
+		    : 0
+		: PL_parser->copline
+	    : 0);
     sv->sv_debug_inpad = 0;
     sv->sv_debug_cloned = 0;
     sv->sv_debug_file = PL_curcop ? savepv(CopFILE(PL_curcop)): NULL;