{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 (file)
--- 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};
  }