---------------
#!/usr/bin/perl
use strict;
use diagnostics;
use warnings;
use CGI::Carp;
use CGI qw/-compile :cgi/;
use FCGI;
my $empty = undef;
my $request = FCGI::Request;
*while ($request->Accept() >= 0)
{
*if ( $empty =~ /blablabal/) {print "blablabla";}
*}
*
-------------
А он воспроизводится легко следующей конструкцией:
У меня ошибки валятся на консоль, а не в FastCGI.
Я пуская скрипт, как сервер через spawn-fcgi от lighttpd
а perl у вас какой версии ?
perl -v
This is perl, v5.6.1 built for i386-freebsd
...
Игорь Сысоев
