This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #40389] perl_destruct() leaks PL_defstash
authorDavid Mitchell <davem@iabyn.com>
Sun, 19 Sep 2010 11:33:04 +0000 (12:33 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 20 Sep 2010 07:16:12 +0000 (08:16 +0100)
commitca556bcdca736b2f85c11650c70b2371169c0225
treea7a82e95d79fd49df1836753caa898b9e2a6bb6d
parentb2ea9a00b30eb5881b863d7239dd6a3721e73136
[perl #40389] perl_destruct() leaks PL_defstash

With PERL_DESTRUCT_LEVEL >= 1, PL_defstash is explicitly freed,
but doesn't actually get freed at that point due to a reference loop
between %:: and *::. Break that loop to ensure that PL_defstash gets freed
at that point. Actually, its not as serious as it sounds, as it would get
freed a bit later anyway by sv_clean_all(), but this new way has these
benefits:

* it gets freed where you expect it to be
* it gets freed cleanly, rather than by the more brutal sv_clean_all()
  (which can leave dangling pointers to freed SVs)
* since its freed while *not* under the influence of
  PL_in_clean_all = TRUE, it's more likely to flag up bugs related to
  double-freeing etc. Indeed, the two previous commits to this are a
  result of that.
perl.c