set $PLP::interface to executing backend

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

diff --git a/PLP/Backend/FastCGI.pm b/PLP/Backend/FastCGI.pm
index 85a5234b75cbc325fe8455ca832c188a9513d0f4..8594a852d7690de911bc1f16b28a087e99707fc0 100644 (file)
--- a/PLP/Backend/FastCGI.pm
+++ b/PLP/Backend/FastCGI.pm
@@ -10,6 +10,7 @@ our $VERSION = '1.01';
 
 sub import {
        my $self = shift;
+       $PLP::interface = $self;
        my $request = FCGI::Request();
        $SIG{TERM} = sub {
                $request->LastCall();