diff options
| author | welch <welch@noemail.net> | 1998-12-02 01:42:38 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 1998-12-02 01:42:38 (GMT) |
| commit | 2aeebe3fd6d17f59c33c375ebb957b181bcd2dd5 (patch) | |
| tree | c302e19ba42255cf20d02ad86a43e1f4588ad992 /tools | |
| parent | 9e5e12319919df75287cff6caa156bbea0c28fe2 (diff) | |
| download | tcl-2aeebe3fd6d17f59c33c375ebb957b181bcd2dd5.zip tcl-2aeebe3fd6d17f59c33c375ebb957b181bcd2dd5.tar.gz tcl-2aeebe3fd6d17f59c33c375ebb957b181bcd2dd5.tar.bz2 | |
Changed this so it can find man2tcl easier
FossilOrigin-Name: 7a39834e9d2287cd8164da472e640fd54346887d
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/man2help.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index a3f2e55..50de53b 100644 --- a/tools/man2help.tcl +++ b/tools/man2help.tcl @@ -6,7 +6,7 @@ # # Copyright (c) 1996 by Sun Microsystems, Inc. # -# RCS: @(#) $Id: man2help.tcl,v 1.2 1998/09/14 18:40:15 stanton Exp $ +# RCS: @(#) $Id: man2help.tcl,v 1.3 1998/12/02 01:42:39 welch Exp $ # # @@ -78,7 +78,8 @@ proc generateHelp {basename files} { # file - Name of file to translate. proc doFile {file} { - if [catch {eval [exec man2tcl [glob $file]]} msg] { + if {[catch {eval [exec man2tcl [glob $file]]} msg] && + [catch {eval [exec ./man2tcl [glob $file]]} msg]} { global errorInfo puts stderr $msg puts "in" |