validator/httpd/cgi-bin check,1.698,1.699

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv949

Modified Files:
	check 
Log Message:
Accept "/referrer" also in mod_perl2 path info workaround.

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.698
retrieving revision 1.699
diff -u -d -r1.698 -r1.699
--- check	21 Sep 2009 19:07:23 -0000	1.698
+++ check	21 Sep 2009 19:08:41 -0000	1.699
@@ -2455,9 +2455,9 @@
 
   # apparently, with mod_perl2, $path_info is empty even if it should be filled
   # working around that
-  if (!$path_info && $File->{Env}->{'Self URI'} =~ /check\/referer$/) {
+  if (!$path_info && $File->{Env}->{'Self URI'} =~ /check\/referr?er$/) {
     $path_info = '/referer';
-    $File->{Env}->{'Self URI'} =~ s/\/referer//;
+    $File->{Env}->{'Self URI'} =~ s/\/referr?er$//;
   }
 
   # Futz the URL so "/referer" works.

Received on Monday, 21 September 2009 19:08:53 UTC