handle fastcgi signals

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

diff --git a/PLP/Backend/FastCGI.pm b/PLP/Backend/FastCGI.pm
index 205ece19e7e577b6544ea478388cf22832c9992e..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};