Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!emory!gatech!psuvax1!rutgers!carssdf!usenet
From: usenet@carssdf.UUCP (John Watson)
Newsgroups: comp.lang.perl
Subject: memory leak v3.44 split
Message-ID: <292@carssdf.UUCP>
Date: 4 Mar 91 02:05:37 GMT
Organization: C.A.R.S.,Middlesex,NJ
Lines: 25

Please would someone else try this for me.

First run it without the "reset" and then run it again with the "reset".
I can't see any reason that the first case uses 130K more than the second.
More loops, more memory.


$t='aaaaaaaaaaaa_bbbbbbbbbbb_cccccccccc_ddddddddd';
while (++$x<1000) {
  @F=split(/_/,$t);
# reset 'F';
}
system 'ps -dl|egrep perl';


I am running on a Xenix 2.3.3 O/S with Xenix 2.3.0d Devl/Sys  I have tried
this with perl malloc, regular malloc and -lmalloc, all about the same.

I compile with -Oct and -Zp2

The problem cropped up recently and may have to do with the debug option,
but I have lost the recipy for the working version.  It's not the -Zp2,
that has been there all along due to requirements of my usersub.

Thanks,   John Watson     carssdf!usenet