This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_hot.c:pp_aelem: Use _NN in one spot
authorFather Chrysostomos <sprout@cpan.org>
Fri, 6 Sep 2013 03:33:00 +0000 (20:33 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 6 Sep 2013 13:18:08 +0000 (06:18 -0700)
This av can never be null here.  av_len will already have failed an
assertion if it is.

pp_hot.c

index 4faa738..be16eae 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2848,7 +2848,7 @@ PP(pp_aelem)
            sv_upgrade(lv, SVt_PVLV);
            LvTYPE(lv) = 'y';
            sv_magic(lv, NULL, PERL_MAGIC_defelem, NULL, 0);
-           LvTARG(lv) = SvREFCNT_inc_simple(av);
+           LvTARG(lv) = SvREFCNT_inc_simple_NN(av);
            /* Resolve a negative index now, unless it points before the
               beginning of the array, in which case record it for error
               reporting in magic_setdefelem. */