set $PLP::interface to executing backend

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

diff --git a/PLP/Backend/Apache.pm b/PLP/Backend/Apache.pm
index eb13d361e44f4f01656e53755e76833e1b7deee3..62caadcb1e2b5debb3af827a9639667db749c16e 100644 (file)
--- a/PLP/Backend/Apache.pm
+++ b/PLP/Backend/Apache.pm
@@ -71,6 +71,7 @@ sub print {
 # This is the mod_perl handler.
 sub handler {
        PLP::clean();
+       $PLP::interface = __PACKAGE__;
        if (my $ret = init($_[0])) {
                return $ret;
        }