environments/ppa-mbqj77/deployments/1
Xavier Guimard 9 years ago
parent 3b083ee9a1
commit eee43d01fa
  1. 16
      e2e-tests/llng.psgi
  2. 2
      fastcgi-server/sbin/llng-fastcgi-server

@ -34,10 +34,20 @@ my %builder = (
require CGI::Emulate::PSGI;
require CGI::Compile;
return sub {
my $script = $_[0]->{SCRIPTNAME};
my $script = $_[0]->{SCRIPT_NAME};
return $_apps{$script}->(@_) if ( $_apps{$script} );
$_apps{$script} =
CGI::Emulate::PSGI->handler( CGI::Compile->compile($script) );
eval {
$_apps{$script} =
CGI::Emulate::PSGI->handler( CGI::Compile->compile($script) );
};
if ($@) {
use Data::Dumper;
return [
500,
[ 'Content-Type', 'text/plain' ],
[ "Script: $script\n $@\n". Dumper( \$_[0] ) ]
];
}
return $_apps{$script}->(@_);
};
},

@ -45,7 +45,7 @@ my %builder = (
require CGI::Emulate::PSGI;
require CGI::Compile;
return sub {
my $script = $_[0]->{SCRIPTNAME};
my $script = $_[0]->{SCRIPT_NAME};
return $_apps{$script}->(@_) if ( $_apps{$script} );
$_apps{$script} =
CGI::Emulate::PSGI->handler( CGI::Compile->compile($script) );

Loading…
Cancel
Save