From 1cbe4e6fdc25527a4e9930e2f6a96fea3834bfd1 Mon Sep 17 00:00:00 2001 From: Daniel Dragan Date: Thu, 11 Dec 2014 22:29:31 -0500 Subject: SvREFCNT_dec_NN in SDBM VC 2003 optimizer didn't catch it because SvREFCNT_dec is rarely inlined on -O1 --- XSUB.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XSUB.h') diff --git a/XSUB.h b/XSUB.h index 8e38df2291..7b04281a9f 100644 --- a/XSUB.h +++ b/XSUB.h @@ -414,7 +414,7 @@ Rethrows a previously caught exception. See L. RETVAL = sv_mortalcopy(db_type) ; \ ST(0) = RETVAL ; \ if (db_type && (code == &PL_sv_undef)) { \ - SvREFCNT_dec(db_type) ; \ + SvREFCNT_dec_NN(db_type) ; \ db_type = NULL ; \ } \ else if (code) { \ -- cgit v1.2.1