diff options
| author | Vincent Pit <vince@profvince.com> | 2009-11-08 16:13:22 +0100 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-11-08 16:14:00 +0100 |
| commit | 70938cb944714e91b284c1fcdab01a6ab2f49034 (patch) | |
| tree | 9288fe41305c0ec11cbf71c657335aa6610713a8 /op.c | |
| parent | ef8d46e8143455a8b73aff3ecaa10ca3cf293a4d (diff) | |
| download | perl-70938cb944714e91b284c1fcdab01a6ab2f49034.tar.gz | |
SvREFCNT_inc already checks if the SV is non-NULL
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -575,8 +575,7 @@ Perl_op_clear(pTHX_ OP *o) && PL_curpad #endif ? cGVOPo_gv : NULL; - if (gv) - SvREFCNT_inc(gv); + SvREFCNT_inc_simple_void(gv); #ifdef USE_ITHREADS if (cPADOPo->op_padix > 0) { /* No GvIN_PAD_off(cGVOPo_gv) here, because other references |