Parser 3.1 не отдает поток stdin вызываемой программе ^file::cgi[имя файла]

Alex 12.09.2003 09:07

Простой вызов
$cgi_file[^file::cgi[/cgi-bin/job/job.cgi]]

Код на перле
if ($ENV{'REQUEST_METHOD'} eq "POST") {$mode = 0}
if ($ENV{'REQUEST_METHOD'} eq "GET") {$mode = 1}
if ($mode == 1) {$buffer = $ENV{'QUERY_STRING'}}
#****
if ($mode == 0) {read(STDIN, $buffer, $ENV{CONTENT_LENGTH})}
#****
Пока запросы ограничиваются методом GET все нормально.
Как только нужно читать входной поток, так процесс перла повисает в ожидании данных.

if ($mode == 0) {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'})}
Вот на этой строчке процесс перла повисает в ожидании данных

С парсером Parser/3.0.0007 все проходит нормально

---