утечка памяти в вызове system

нет.

глядите, что у меня есть. Есть оффтоп-три-семерочки, есть strawberry perl 5.18.win32

while (1) {
  system('rdotool');
}

Набор процесса perl.exe растет константно.

Что это значит?

Если someapp вдруг ``течёт" - значит ли это, что после того, как он выполнится, вся утекшая память останется в наборе процесса perl'а?

нет. на то он и другой процесс.

короче, оффтоп-практика показывает, что это не так. смотри пост выше. я в растерянности

хз. нелогично. но верю, течет - значит течет.

а в чем прикол strawberry perl? лучше/хуже activestate?

теч может совсем другое

On some platforms such as Windows where the fork() system call is not available, Perl can be built to emulate fork() at the interpreter level. While the emulation is designed to be as compatible as possible with the real fork() at the level of the Perl program, there are certain important differences that stem from the fact that all the pseudo child «processes» created this way live in the same real process as far as the operating system is concerned.

http://perldoc.perl.org/perlfork.html

http://perldoc.perl.org/functions/system.html

ларриугодность

http://strawberryperl.com/images/strawberry3.jpg

просто я покусанный столлманом ънтрпрайзофоб.

Что это значит?

system - это fork + exec. А fork в виндовом перле реализован через попу, то есть это по сути и не форк. Вот у тебя, например, одно из проявлений этого.

Видимо проблема в том, что в windows someapp запускается на самом деле в рамках текущего процесса, а не нового.

Попробуй Win32::Process::Create: https://metacpan.org/pod/Win32::Process

for (;;) {
	my $rrd;
	if (Win32::Process::Create($rrd, '','', 0, NORMAL_PRIORITY_CLASS, '.')) {
		$rrd->Wait(INFINITE);
	} else {
        print Win32::FormatMessage( Win32::GetLastError() );
	}
}

память утекает еще быстрее :З а ведь тут даже процесса создать не получается, поскольку аргументы заведомо неверные

use strict;
use Win32::Process;
use Win32;

for (;;) {
	my $rrd;
	if (Win32::Process::Create($rrd, '','', 0, NORMAL_PRIORITY_CLASS, '.')) {
		$rrd->Wait(INFINITE);
	} else {
        print Win32::FormatMessage( Win32::GetLastError() );
	}
}

У меня такой скрипт не течёт. ActiveState perl 5.12.4

ясно, сворую тогда активстейт. когда людям платят деньги - они конпеляют нормально, а в опенсурсе «зато бесплатно».

Ну вообще там free версия есть, которую все и пользуют (Community Edition).

community нельзя на продукте использовать по лицензии

Ах вот зачем рекомендуется освобождать ресурсы перед завершением программы несмотря на то, что это всё равно должна сделать операционная система. Оказывается, в винде форк ниасилили.

У someapp свое адресное пространство

Oh shi~

Было бы логичнее, если бы функция system работала через system(3), а не через fork(2). На винде с system проблем нет.