Omit warning message if MANPATH is not set.

2004-05-12 19:28:04 +00:00 · 2004-05-12 19:28:04 +00:00 · e13ad264bc
parent fe45fdc230
commit e13ad264bc
1 changed files with 7 additions and 1 deletions
--- a/scheme/httpd/rman-gateway.scm
+++ b/scheme/httpd/rman-gateway.scm
@ -23,7 +23,13 @@
 		     (unescape-uri (http-url-search url))
 		     '())))
 	  (else
-	   (let ((man-path ((infix-splitter ":") (getenv "MANPATH"))))
+	   (let ((man-path 
+		  ((infix-splitter ":") 
+		   (or (getenv "MANPATH")
+		       (begin 
+			 (format (current-error-port)
+				 "~%Warning: environment variable MANPATH is unset.~%")
+			 "")))))
 	     (lambda (url)
 	       (values man-path
 		       (unescape-uri (http-url-search url))