Path: utzoo!attcan!uunet!know!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Perl process size grows and grows
Keywords: leak, confused
Message-ID: <10280@jpl-devvax.JPL.NASA.GOV>
Date: 8 Nov 90 01:27:26 GMT
References: <1990Nov7.200342.12853@bwdls61.bnr.ca>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 37

In article <1990Nov7.200342.12853@bwdls61.bnr.ca> gwaters@bwdls35.bnr.ca (Glenn Waters) writes:
: When the following program is run the process size keeps growing.
 
: The broken program...
: 
: #!/usr/local/bin/perl
: for ($i = 0; $i < 10000; $i++)
: {
:   &dum (*name);
: }
: 
: #********* Sub Dum ********
: sub dum
: {
:   local (*anything) = @_;
: }

Yup, it's a bona fide leak.  I don't see any workaround, offhand.
But it will be fixed in 38.  Thanks.

If you're desperate, apply the following, and expect the corresponding
hunk of 38 to fail:

*** /tmp/,RCSt1009402	Wed Nov  7 17:25:42 1990
--- str.c	Wed Nov  7 17:15:22 1990
***************
*** 590,595 ****
--- 601,608 ----
  #ifdef TAINT
      str->str_tainted = nstr->str_tainted;
  #endif
+     if (nstr->str_magic)
+ 	str_free(nstr->str_magic);
      Safefree(nstr);
  }
  
Larry