"unofficial" patches for some of the more spectacular [memory leaks]

To: Simon Parsons <S.Parsons@fulcrum.co.uk>

: I am on a Sun sparc running Solaris 5.3 / 5.4
:
: Are there any patches available for perl5.000, or a list of know bugs?
: I am having problems with a script running out of memory, which may be
: causes by memory leaks. The process size grows steadily up to approx
: 8Meg (over a couple of minutes) an then grows to approx 22Meg (in 2 or
: 3 seconds) before running out of memory. purify indicates memory
: leaks, but I am not sure whether this is as a result of perl
: abandoning memory as it exits.

5.001 will contain fixes for a number of memory leaks.  Here are some
unofficial patches for some of the more spectacular ones.  The one
for sv.c is the likeliest one to be affecting you, unless you're doing
a lot of evals.

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 7776aa631d..ed8dc5228c 100644
--- a/sv.c
+++ b/sv.c
@@ -1581,7 +1581,7 @@ register SV *sstr;
 	 */
 
 	if (SvTEMP(sstr)) {		/* slated for free anyway? */
-	    if (SvPOK(dstr)) {
+	    if (SvPVX(dstr)) {		/* we know that dtype >= SVt_PV */
 		(void)SvOOK_off(dstr);
 		Safefree(SvPVX(dstr));
 	    }