This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Use SvREFCNT_dec_NN in one spot
authorFather Chrysostomos <sprout@cpan.org>
Thu, 5 Feb 2015 05:31:29 +0000 (21:31 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 5 Feb 2015 17:15:16 +0000 (09:15 -0800)
toke.c

diff --git a/toke.c b/toke.c
index 559c74c..c0a5b31 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5323,7 +5323,7 @@ Perl_yylex(pTHX)
                    sv_catsv(sv, PL_lex_stuff);
                    attrs = op_append_elem(OP_LIST, attrs,
                                        newSVOP(OP_CONST, 0, sv));
-                   SvREFCNT_dec(PL_lex_stuff);
+                   SvREFCNT_dec_NN(PL_lex_stuff);
                    PL_lex_stuff = NULL;
                }
                else {