X-Git-Url: http://git.shiar.nl/gitweb.cgi/perl/plp/.git/blobdiff_plain/96959bff080392067524996e6edbf95445ba66da..0836519b627579b7edd0ec6527f75344e0527bd4:/PLP/Backend/FastCGI.pm?ds=sidebyside

diff --git a/PLP/Backend/FastCGI.pm b/PLP/Backend/FastCGI.pm
index 8ee3261..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};
@@ -65,5 +69,5 @@ Mischa POSLAWSKY <perl@shiar.org>
 
 =head1 SEE ALSO
 
-L<PLP|PLP>, L<PLP::Backend::CGI|PLP::Backend::CGI>, L<FCGI|FCGI>
+L<PLP>, L<PLP::Backend::CGI>, L<FCGI>