From: Guy Decoux <decoux@moulon.inra.fr>
Date: Mon, 29 Jun 1998 08:10:46 +0000 (+0200)
Subject: {perlembed.pod] Re: Memory leak in Perl 5.004 and the fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f701bad73477158c95e4f7277c944c3cf503d0d;p=p5sagit%2Fp5-mst-13.2.git

{perlembed.pod] Re: Memory leak in Perl 5.004 and the fix

	Message-Id: <199806290610.IAA19443@moulon.inra.fr>

p4raw-id: //depot/perl@1260
---

diff --git a/pod/perlembed.pod b/pod/perlembed.pod
index 689050c..1255345 100644
--- a/pod/perlembed.pod
+++ b/pod/perlembed.pod
@@ -690,7 +690,10 @@ with my() whenever possible.
      ($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
 
      my $stem_symtab = *{$stem}{HASH};
+     my $leaf_glob   = $stem_symtab->{$leaf};
+     my $leaf_symtab = *{$leaf_glob}{HASH};
 
+     %$leaf_symtab = ();
      delete $stem_symtab->{$leaf};
  }