diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-06-13 22:41:33 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-06-13 22:41:33 +0000 |
| commit | f24aceb1b6884bbb6aae2a756c35663bc6fac2c3 (patch) | |
| tree | abba105d3e4a92199793f2650f487837fafd2404 /sv.c | |
| parent | d0bc9cc8514a55284231a7487bc6aa00d14c5531 (diff) | |
| download | perl-f24aceb1b6884bbb6aae2a756c35663bc6fac2c3.tar.gz | |
change #31134 broke DEBUG_LEAKING_SCALARS builds
p4raw-link: @31134 on //depot/perl: 53a7735b62aee14640bc8ca619b4267f07d686b9
p4raw-id: //depot/perl@31376
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -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; |