Use SvREFCNT_dec_NN in one place in mro.c
authorFather Chrysostomos <sprout@cpan.org>
Sun, 23 Dec 2012 07:31:02 +0000 (23:31 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 26 May 2013 07:18:23 +0000 (00:18 -0700)
mro.c

diff --git a/mro.c b/mro.c
index be2038f..cb67950 100644 (file)
--- a/mro.c
+++ b/mro.c
@@ -131,7 +131,7 @@ Perl_mro_register(pTHX_ const struct mro_alg *mro) {
     if (!Perl_hv_common(aTHX_ PL_registered_mros, NULL,
                        mro->name, mro->length, mro->kflags,
                        HV_FETCH_ISSTORE, wrapper, mro->hash)) {
-       SvREFCNT_dec(wrapper);
+       SvREFCNT_dec_NN(wrapper);
        Perl_croak(aTHX_ "panic: hv_store() failed in mro_register() "
                   "for '%.*s' %d", (int) mro->length, mro->name, mro->kflags);
     }