summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2011-03-26 16:31:49 +0000
committerDavid Mitchell <davem@iabyn.com>2011-03-26 16:50:08 +0000
commitd8ebba9f954afa65d5f5146e783285f4d4e24583 (patch)
treedf464951dc5cac12adc2eec5c683f397a0f16712 /toke.c
parenteb88ed9ea9974ecc4cbfd0b64a636b00870389a1 (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 6933e62af4..9642ad331e 100644
--- a/toke.c
+++ b/toke.c
@@ -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);
}