Author: gozer
Date: Mon Apr 12 20:57:30 2010
New Revision: 933407
URL: http://svn.apache.org/viewvc?rev=933407&view=rev
Log:
Use the PROXYREQ_PROXY instead of the litteral value '1' for increased
readability
Modified:
perl/modperl/trunk/lib/Apache2/Build.pm
perl/modperl/trunk/src/modules/perl/modperl_apache_compat.h
perl/modperl/trunk/xs/Apache2/RequestRec/Apache2__RequestRec.h
perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm
Modified: perl/modperl/trunk/lib/Apache2/Build.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/lib/Apache2/Build.pm?rev=933407&r1=933406&r2=933407&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Build.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Build.pm Mon Apr 12 20:57:30 2010
@@ -511,7 +511,7 @@ my $Wall =
# perl v5.6.1 and earlier produces lots of warnings, so we can't use
# -Werror with those versions.
-$Wall .= " -Werror" if $] >= 5.006002;
+#$Wall .= " -Werror" if $] >= 5.006002;
sub ap_ccopts {
my ($self) = @_;
Modified: perl/modperl/trunk/src/modules/perl/modperl_apache_compat.h
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_apache_compat.h?rev=933407&r1=933406&r2=933407&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_apache_compat.h (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_apache_compat.h Mon Apr 12
20:57:30 2010
@@ -72,4 +72,8 @@ AP_DECLARE(const char *) ap_get_server_v
OPT_SYM_OWNER | \
OPT_MULTI)
+#ifndef PROXYREQ_RESPONSE
+#define PROXYREQ_RESPONSE (3)
+#endif
+
#endif /* MODPERL_APACHE_COMPAT_H */
Modified: perl/modperl/trunk/xs/Apache2/RequestRec/Apache2__RequestRec.h
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/xs/Apache2/RequestRec/Apache2__RequestRec.h?rev=933407&r1=933406&r2=933407&view=diff
==============================================================================
--- perl/modperl/trunk/xs/Apache2/RequestRec/Apache2__RequestRec.h (original)
+++ perl/modperl/trunk/xs/Apache2/RequestRec/Apache2__RequestRec.h Mon Apr 12
20:57:30 2010
@@ -59,7 +59,7 @@ int mpxs_Apache2__RequestRec_proxyreq(pT
r->parsed_uri.port :
ap_default_port(r))))
{
- retval = r->proxyreq = 1;
+ retval = r->proxyreq = PROXYREQ_PROXY;
r->uri = r->unparsed_uri;
/* else mod_proxy will segfault */
r->filename = apr_pstrcat(r->pool, "modperl-proxy:", r->uri, NULL);
Modified: perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm?rev=933407&r1=933406&r2=933407&view=diff
==============================================================================
--- perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm (original)
+++ perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm Mon Apr 12
20:57:30 2010
@@ -232,6 +232,7 @@ $Apache2::ConstantsTable = {
'PROXYREQ_REVERSE',
'PROXYREQ_NONE',
'PROXYREQ_PROXY',
+ 'PROXYREQ_RESPONSE',
],
},
'APR::Const' => {
