free pseen in the magic free code
authorTony Cook <tony@develop-help.com>
Wed, 17 Apr 2019 01:10:13 +0000 (11:10 +1000)
committerTony Cook <tony@develop-help.com>
Wed, 17 Apr 2019 01:13:57 +0000 (11:13 +1000)
dist/Storable/Storable.xs
dist/Storable/__Storable__.pm

index f6df32b..ed729c9 100644 (file)
@@ -7769,6 +7769,10 @@ storable_free(pTHX_ SV *sv, MAGIC* mg) {
     stcxt_t *cxt = (stcxt_t *)SvPVX(sv);
 
     PERL_UNUSED_ARG(mg);
+#ifdef USE_PTR_TABLE
+    if (cxt->pseen)
+        ptr_table_free(cxt->pseen);
+#endif
     if (kbuf)
         Safefree(kbuf);
     if (!cxt->membuf_ro && mbase)
index 812675a..9237371 100644 (file)
@@ -27,7 +27,7 @@ our @EXPORT_OK = qw(
 
 our ($canonical, $forgive_me);
 
-our $VERSION = '3.14';
+our $VERSION = '3.15';
 
 our $recursion_limit;
 our $recursion_limit_hash;