diff options
| author | Guy Decoux <decoux@moulon.inra.fr> | 1998-06-29 10:10:46 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-29 06:46:12 +0000 |
| commit | 5f701bad73477158c95e4f7277c944c3cf503d0d (patch) | |
| tree | 864f67222385718d43a00f69691ef3a997ee75e0 /pod/perlembed.pod | |
| parent | b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0 (diff) | |
| download | perl-5f701bad73477158c95e4f7277c944c3cf503d0d.tar.gz | |
{perlembed.pod] Re: Memory leak in Perl 5.004 and the fix
Message-Id: <199806290610.IAA19443@moulon.inra.fr>
p4raw-id: //depot/perl@1260
Diffstat (limited to 'pod/perlembed.pod')
| -rw-r--r-- | pod/perlembed.pod | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/pod/perlembed.pod b/pod/perlembed.pod index 689050c466..12553452c3 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}; } |