projects / platform / upstream / perl.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: a61fe43) | patch
pp_undef was not always freeing memory
authorIlya Zakharevich <ilya@math.ohio-state.edu>
Thu, 27 Feb 1997 06:53:51 +0000 (01:53 -0500)
committerChip Salzenberg <chip@atlantic.net>
Tue, 25 Feb 1997 01:12:02 +0000 (13:12 +1200)
commit1da885048b65b5be1bd3077c6fc45f92c567e1b5
tree33b20d8b1a82876e19ca2753ea37a1689f7a7292tree | snapshot
parenta61fe43df197fcc70e6f310c06ee17d52b606c45commit | diff
pp_undef was not always freeing memory

As I found, pp_undef in
$a = 'aaa';
$a = 0;
undef $a;
was not reclaiming the storage, as it does in
        $a = 'aaa';
        undef $a;

The patch is below fixes this shortcoming (tests ok, perl rebuilds
itself OK),

Enjoy,

p5p-msgid: <199702270707.CAA13978@monk.mps.ohio-state.edu>
private-msgid: <199702270653.BAA13949@monk.mps.ohio-state.edu>
pp.c diff | blob | history
Domain: System / Base;