From 5cbddb2f348e800fedcc20886535f513dccad828 Mon Sep 17 00:00:00 2001
From: welch <welch>
Date: Wed, 2 Dec 1998 01:42:39 +0000
Subject: Changed this so it can find man2tcl easier

---
 tools/man2help.tcl | 5 +++--
 1 file 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"
-- 
cgit v0.12