Apache: warn to vhost-specific error log

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

diff --git a/lib/PLP/Backend/Apache.pm b/lib/PLP/Backend/Apache.pm
index cd5b16f34ce92367f2c56d33eb3c910083dd4ccc..b7e900a53de7e9585a3a89baffe3cdb8e323c8ee 100644 (file)
--- a/lib/PLP/Backend/Apache.pm
+++ b/lib/PLP/Backend/Apache.pm
@@ -3,7 +3,7 @@ package PLP::Backend::Apache;
 use strict;
 use warnings;
 
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 
 use PLP;
 
@@ -17,6 +17,7 @@ BEGIN {
                require Apache2::RequestRec;
                require Apache2::RequestUtil;
                require Apache2::RequestIO;
+               require Apache2::Log;
                Apache2::Const->import(-compile => qw(
                        HTTP_NOT_FOUND HTTP_FORBIDDEN OK
                ));
@@ -33,6 +34,7 @@ sub init {
 
        $PLP::print = 'PLP::Backend::Apache::print';
        $PLP::read = \&read;
+       *CORE::GLOBAL::warn = $SIG{__WARN__} = \&Apache2::ServerRec::warn if MP2;
        
        $ENV{PLP_FILENAME} = my $filename = $r->filename;