X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/5d65ad9b409494bb4e7c98a27d29079e09b111f5..0836519b627579b7edd0ec6527f75344e0527bd4:/PLP/Backend/FastCGI.pm diff --git a/PLP/Backend/FastCGI.pm b/PLP/Backend/FastCGI.pm index 205ece1..f83675a 100644 --- a/PLP/Backend/FastCGI.pm +++ b/PLP/Backend/FastCGI.pm @@ -6,11 +6,15 @@ use PLP::Backend::CGI; use FCGI; use base 'PLP::Backend::CGI'; -our $VERSION = '1.00'; +our $VERSION = '1.01'; sub import { my $self = shift; my $request = FCGI::Request(); + $SIG{TERM} = sub { + $request->LastCall(); + }; + $SIG{PIPE} = 'IGNORE'; while ($request->Accept() >= 0) { $PLP::use_cache = !defined $ENV{PLP_CACHE} || $ENV{PLP_CACHE}; # before it's clean()ed delete $ENV{PATH_TRANSLATED};