From 9a9d91fe92cc3b87ddb5ad627479d81e734b6e74 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Fri, 10 Jan 2003 13:31:06 +0000
Subject: [PATCH] Don't look at (getenv "PATH") when determining the PATH set
 for the CGI script.

---
 scheme/httpd/cgi-server.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index e1407d0..92e40c3 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -81,10 +81,10 @@
 (define (cgi-handler bin-dir . maybe-cgi-bin-path)
   (let-optionals
       maybe-cgi-bin-path
-      ((cgi-bin-path cgi-default-bin-path))
+      ((cgi-bin-path cgi-default-bin-path)))
     
     (let ((request-invariant-cgi-env    ; environment variables that never change
-	   `(("PATH"              . ,(and (getenv "PATH") cgi-bin-path))
+	   `(("PATH"              . ,cgi-bin-path)
 	     ("SERVER_SOFTWARE"   . ,sunet-version-identifier)
 	     ("SERVER_NAME"       . ,(host-info:name (host-info (system-name))))
 	     ("GATEWAY_INTERFACE" . "CGI/1.1"))))