Change 31376: change #31134 broke DEBUG_LEAKING_SCALARS builds

[Dave Mitchell]

Change 31376 by [EMAIL PROTECTED] on 2007/06/13 22:41:33

        change #31134 broke DEBUG_LEAKING_SCALARS builds

Affected files ...

... //depot/perl/sv.c#1411 edit

Differences ...

==== //depot/perl/sv.c#1411 (text) ====
Index: perl/sv.c
--- perl/sv.c#1410~31346~       2007-06-07 01:51:15.000000000 -0700
+++ perl/sv.c   2007-06-13 15:41:33.000000000 -0700
@@ -246,8 +246,13 @@
     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;
End of Patch.