From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 18 Mar 2008 01:52:41 +0000 (+0000)
Subject: fix exit constants usage in apache2
X-Git-Tag: 3.20~17
X-Git-Url: http://git.shiar.net/perl/plp/.git/commitdiff_plain/1dd113c913fed66850297163930ce0b6e6915dc2

fix exit constants usage in apache2

Apache2::Const requires HTTP_* constants to be compiled before they can be
accessed. This caused at least a warning message at the end of each page,
usually:

	Use of inherited AUTOLOAD for non-method Apache2::Const::OK() is deprecated
---

diff --git a/PLP/Apache.pm b/PLP/Apache.pm
index b174486..835f2b4 100644
--- a/PLP/Apache.pm
+++ b/PLP/Apache.pm
@@ -16,6 +16,9 @@ BEGIN {
 		require Apache2::RequestRec;
 		require Apache2::RequestUtil;
 		require Apache2::RequestIO;
+		Apache2::Const->import(-compile => qw(
+			HTTP_NOT_FOUND HTTP_FORBIDDEN OK
+		));
 	} else {
 		require Apache::Constants;
 	}