diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2014-12-11 22:29:31 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-11 20:40:43 -0800 |
| commit | 1cbe4e6fdc25527a4e9930e2f6a96fea3834bfd1 (patch) | |
| tree | a3241efec65808ff89837c26f400a529c0fabc73 /XSUB.h | |
| parent | 8fe523b46877224b0d8f3bd5ea78396ff0b4242d (diff) | |
| download | perl-1cbe4e6fdc25527a4e9930e2f6a96fea3834bfd1.tar.gz | |
SvREFCNT_dec_NN in SDBM
VC 2003 optimizer didn't catch it because SvREFCNT_dec is rarely inlined
on -O1
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -414,7 +414,7 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. 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) { \ |