[sisyphus] Perl memory leaks?

[Alexey Tourbin]

On Mon, Mar 03, 2008 at 12:04:00AM -0500, Ivan Adzhubey wrote:
> Никто не замечал утечек памяти в перле в последнее время? У меня падает скрипт 
> с Cannot allocate memory, на операции открытия pipe:
> 
> open(PIP, "gunzip -qc $file.gz |")
> 
> Где-то после тысячи файлов в цикле. После прочтения каждого файла все 

$ cd /usr/share/man/man1
$ ls *.gz |wc -l         
1714
$ perl -e 'for $f (<*.gz>) { open P, "gunzip -qc $f |"; print while <P>; close P; }' |wc -c
8494614
$ zcat *.gz |wc -c
8494614
$ 

Может течь в разных местах, но здесь не похоже.

$ perl -e 'system "ps v $$"'
  PID TTY      STAT   TIME  MAJFL   TRS   DRS   RSS %MEM COMMAND
19284 pts/8    R+     0:00      0     2  3681  1396  0.1 perl -e system "ps v $$"
$ perl -e 'for $f (<*.gz>) { open P, "gunzip -qc $f |"; 1 while <P>; close P; } system "ps v $$"'
  PID TTY      STAT   TIME  MAJFL   TRS   DRS   RSS %MEM COMMAND
19300 pts/8    R+     0:00      0     2  3965  2172  0.2 perl -e for $f (<*.gz>) ...
$ 
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 197 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/sisyphus/attachments/20080303/ca5cddc2/attachment-0002.bin>