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 /ext/SDBM_File | |
| 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 'ext/SDBM_File')
| -rw-r--r-- | ext/SDBM_File/SDBM_File.pm | 2 | ||||
| -rw-r--r-- | ext/SDBM_File/SDBM_File.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/SDBM_File/SDBM_File.pm b/ext/SDBM_File/SDBM_File.pm index 0410bef32d..f1f85f58ea 100644 --- a/ext/SDBM_File/SDBM_File.pm +++ b/ext/SDBM_File/SDBM_File.pm @@ -7,7 +7,7 @@ require Tie::Hash; 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"; diff --git a/ext/SDBM_File/SDBM_File.xs b/ext/SDBM_File/SDBM_File.xs index 070f0745ad..bb994f71c5 100644 --- a/ext/SDBM_File/SDBM_File.xs +++ b/ext/SDBM_File/SDBM_File.xs @@ -65,7 +65,7 @@ sdbm_DESTROY(db) 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) ; } |