fix leaks in *DBM_File; safemalloc()ed things need to be freed with

[p5sagit/p5-mst-13.2.git] / ext / ODBM_File / ODBM_File.xs

diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs
index 7601c34..e263dfb 100644 (file)
--- a/ext/ODBM_File/ODBM_File.xs
+++ b/ext/ODBM_File/ODBM_File.xs
@@ -120,6 +120,7 @@ DESTROY(db)
        CODE:
        dbmrefcnt--;
        dbmclose();
+       safefree(db);
 
 datum_value
 odbm_FETCH(db, key)