diff options
author | David Mitchell <davem@iabyn.com> | 2011-03-26 16:31:49 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2011-03-26 16:50:08 +0000 |
commit | d8ebba9f954afa65d5f5146e783285f4d4e24583 (patch) | |
tree | df464951dc5cac12adc2eec5c683f397a0f16712 /toke.c | |
parent | eb88ed9ea9974ecc4cbfd0b64a636b00870389a1 (diff) | |
download | perl-d8ebba9f954afa65d5f5146e783285f4d4e24583.tar.gz |
fix compiler warning in toke.c
The third arg to newSVOP must be non-null, and the macro expansion
for SvREFCNT_inc can give a null value sometimes. So replace it
with SvREFCNT_inc_NN and everyone's happy..
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -6597,7 +6597,7 @@ Perl_yylex(pTHX) goto safe_bareword; { - OP *const_op = newSVOP(OP_CONST, 0, SvREFCNT_inc(sv)); + OP *const_op = newSVOP(OP_CONST, 0, SvREFCNT_inc_NN(sv)); const_op->op_private = OPpCONST_BARE; rv2cv_op = newCVREF(0, const_op); } |