set $PLP::interface to executing backend

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

diff --git a/PLP/Backend/CGI.pm b/PLP/Backend/CGI.pm
index 1a4f49c8e765d52985fb67c6cf155ee285ddbe5b..e4bcf1edd3d5d0e019df5133faeb68dadfd79ebc 100644 (file)
--- a/PLP/Backend/CGI.pm
+++ b/PLP/Backend/CGI.pm
@@ -72,6 +72,7 @@ sub everything {
 
 # This is run by the CGI script. (#!perl \n use PLP::Backend::CGI;)
 sub import {
+       $PLP::interface = $_[0];
        $_[0]->everything();
 }