Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!ccut!lkbreth!octavia!serow
From: serow@octavia.ibix.co.jp (Yoshitomo Tanaka)
Newsgroups: comp.lang.perl
Subject: memory leak
Message-ID: <SEROW.91Feb13170202@octavia.ibix.co.jp>
Date: 13 Feb 91 08:02:02 GMT
Sender: news@octavia.ibix.co.jp
Distribution: comp
Organization: IBIX Co., Ltd. Tokyo, Japan
Lines: 21


In perl 3 patchlevel 44,
the following script causes memory leak.


#! /usr/bin/perl
&xtest; system("ps v"); #eat memory
&xtest; system("ps v"); #eat more memory
&xtest; system("ps v"); #eat more and more memory
&xtest; system("ps v"); #eat more and more and more memory
&xtest; system("ps v"); #eat more ((and more) x 3) memory
sub xtest {
	for ($i = 0; $i < 10000; $i++) {
		$s = " " x ($i % 100);
	}
}
__END__
--------------------
-+--+-	Yoshitomo Tanaka	serow@ibix.co.jp
 |  '
 \---