- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Thu, 26 Jul 2007 03:49:42 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv13852
Modified Files:
check
Log Message:
workaround for borked /check/referer with mod_perl2
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.549
retrieving revision 1.550
diff -u -d -r1.549 -r1.550
--- check 26 Jul 2007 02:10:48 -0000 1.549
+++ check 26 Jul 2007 03:49:40 -0000 1.550
@@ -1875,6 +1875,14 @@
}
}
+ # apparently, with mod_perl2, $path_info is empty even if it should be filled
+ # working around that
+ if (!$path_info) {
+ if ($File->{Env}->{'Self URI'} =~ /check\/referer$/){
+ $path_info = '/referer';
+ $File->{Env}->{'Self URI'} =~ s/\/referer//;
+ }
+ }
# Futz the URL so "/referer" works.
if ($path_info) {
if ($path_info eq '/referer' or $path_info eq '/referrer') {
Received on Thursday, 26 July 2007 03:49:45 UTC