diff options
| author | Eric Brine <ikegami@adaelis.com> | 2012-12-05 01:30:25 -0500 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-01-03 21:21:53 -0700 |
| commit | d2687c9864ee55010b4c40a464ee830f0bdda6e8 (patch) | |
| tree | 7c9f0d791c6cb6cfb719f82ff0805fe4dde3f92a /perl.c | |
| parent | 5398666e2f464a280d839dd05997123b4d99b1e0 (diff) | |
| download | perl-d2687c9864ee55010b4c40a464ee830f0bdda6e8.tar.gz | |
Remove redundant NULL checks.
It's safe to pass NULLs to SvREFCNT_dec.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -2252,8 +2252,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) #endif lex_start(linestr_sv, rsfp, lex_start_flags); - if(linestr_sv) - SvREFCNT_dec(linestr_sv); + SvREFCNT_dec(linestr_sv); PL_subname = newSVpvs("main"); |