blob: 58843d5df30faedc21b51b0c4029abdfa878248e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
--- tkmandesc.tcl.orig Wed Mar 1 19:55:54 2000
+++ tkmandesc.tcl Sat May 20 07:57:33 2000
@@ -223,8 +223,9 @@
set mani(manTitleList) $man(manTitleList)
if {![info exists env(MANPATH)] || [string equal [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)
|
