Generate a pair of status and text if the CGI script failed to provide

the "Status" header.
2003-02-20 08:57:59 +00:00 · 2003-02-20 08:57:59 +00:00 · bc6324e252
parent e6e4ea0f1a
commit bc6324e252
1 changed files with 1 additions and 1 deletions
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@ -247,7 +247,7 @@
 		     (else
 		      (http-syslog (syslog-level notice) 
 				   "CGI script didn't generate status header.")
-		      200)))
+		      (cons 200 "OK"))))
 	 (extra-headers (delete-headers (delete-headers (delete-headers headers
 									'content-type)
 							'location)