VC 2003 optimizer didn't catch it because SvREFCNT_dec is rarely inlined
on -O1
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) { \
require XSLoader;
our @ISA = qw(Tie::Hash);
-our $VERSION = "1.11";
+our $VERSION = "1.12";
our @EXPORT_OK = qw(PAGFEXT DIRFEXT PAIRMAX);
use Exporter "import";
sdbm_close(db->dbp);
do {
if (db->filter[i])
- SvREFCNT_dec(db->filter[i]);
+ SvREFCNT_dec_NN(db->filter[i]);
} while (i-- > 0);
safefree(db) ;
}