validator/httpd/cgi-bin check,1.549,1.550

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') {