summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorwelch <welch>1998-12-02 01:42:39 (GMT)
committerwelch <welch>1998-12-02 01:42:39 (GMT)
commit5cbddb2f348e800fedcc20886535f513dccad828 (patch)
treec302e19ba42255cf20d02ad86a43e1f4588ad992
parent943516013348571d593d72942857e5340a54ca9c (diff)
downloadtcl-5cbddb2f348e800fedcc20886535f513dccad828.zip
tcl-5cbddb2f348e800fedcc20886535f513dccad828.tar.gz
tcl-5cbddb2f348e800fedcc20886535f513dccad828.tar.bz2
Changed this so it can find man2tcl easier
-rw-r--r--tools/man2help.tcl5
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"