scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Omit warning message if MANPATH is not set.

This commit is contained in:
interp 2004-05-12 19:28:04 +00:00
parent fe45fdc230
commit e13ad264bc
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/rman-gateway.scm
View File

@ -23,7 +23,13 @@
(unescape-uri (http-url-search url)) (unescape-uri (http-url-search url))
'()))) '())))
(else (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) (lambda (url)
(values man-path (values man-path
(unescape-uri (http-url-search url)) (unescape-uri (http-url-search url))