This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use SvREFCNT_dec_NN in one place in hv.h
[perl5.git] / hv.c
diff --git a/hv.c b/hv.c
index e9e3b27..966a12f 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2213,7 +2213,7 @@ Perl_hv_kill_backrefs(pTHX_ HV *hv) {
        HvAUX(hv)->xhv_backreferences = 0;
        Perl_sv_kill_backrefs(aTHX_ MUTABLE_SV(hv), av);
        if (SvTYPE(av) == SVt_PVAV)
-           SvREFCNT_dec(av);
+           SvREFCNT_dec_NN(av);
     }
 }