blob: b699e77afbcae67a6b0db2abf4e4f6468edf862b (
plain) (
tree)
|
|
--- tkmandesc.tcl.orig Mon Jul 13 11:44:31 1998
+++ tkmandesc.tcl Thu Jul 30 13:43:44 1998
@@ -221,8 +221,9 @@
set mani(manTitleList) $man(manTitleList)
if {![info exists env(MANPATH)] || [string trim $env(MANPATH)]==""} {
- 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)
|
