Bug #70609 for CGI: CGI::Fast not honoring ENV values unless in BEGIN

> If I may add my $0.02... I believe the best internal fix is to delay the > creation of the request until it is needed in new(). Something like > this in the constructor... > > $request ||= create_fcgi_request(); > return unless $request->Accept >= 0; > > And then create_fcgi_request is something like... > > sub create_fcgi_request { > if( $ENV{FCGI_SOCKET_PATH} ) { > my $path = $ENV{FCGI_SOCKET_PATH}; > my $backlog = $ENV{FCGI_LISTEN_QUEUE} || 100; > my $socket = FCGI::OpenSocket( $path, $backlog ); > return FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, > \%ENV, $socket, 1 ); > } > else { > return FCGI::Request(); > } > } > > This will have the benefit of making the code work as currently > documented and eliminates the awkward "configure before load" trap. > > In addition, because environment variables are an awkward way to > configure a module from the inside, I'd suggest adding this alternative > to the interface... > > use CGI::Fast socket_path => ':9000', listen_queue => '50'; > > This makes it impossible to set the configuration too late. These > arguments would override the defaults and the environment variables. > > This is still a global set on module load, which can bring problems. > Usually configuring the object, not the module, is better. But since > CGI::Fast is only intended to be loaded once per CGI process it should > be ok. And if it turns out to be necessary, an additional override can > be added to the object constructor later.