blob: 1e88eee37ee7ca65da4dea8929da58b519b549ce (
plain) (
tree)
|
|
--- tkmandesc.tcl.orig Wed Apr 2 01:31:38 2003
+++ tkmandesc.tcl Sun Oct 19 11:09:54 2003
@@ -224,8 +224,9 @@
set mani(manTitleList) $man(manTitleList)
if {![info exists env(MANPATH)] || [string trim $env(MANPATH)] eq ""} {
- puts stderr "You must set a MANPATH environment variable,\nwhich is a colon-separated list of directories in which\nto find man pages, for example /usr/man:/usr/share/man.\n(See the help page for an explanation of why\nalternatives to the MANPATH are a bad thing.)"
- exit 1
+# puts stderr "You must set a MANPATH environment variable,\nwhich is a colon-separated list of directories in which\nto find man pages, for example /usr/man:/usr/share/man.\n(See the help page for an explanation of why\nalternatives to the MANPATH are a bad thing.)"
+# exit 1
+ set env(MANPATH) [join $manx(mastermen) ":"]
}
set manx(MANPATH0) $env(MANPATH)
|
