handle fastcgi signals

[perl/plp/.git] / PLP / Backend / FastCGI.pm

diff --git a/PLP/Backend/FastCGI.pm b/PLP/Backend/FastCGI.pm
index 8ee326172d1fa8dcfb114ed9aab9f9befc26e29d..f83675a7ce3963244a6df7caef0c846ed94c2d37 100644 (file)
--- 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>