summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2002-03-28 21:52:41 (GMT)
committerdavygrvy <davygrvy@pobox.com>2002-03-28 21:52:41 (GMT)
commit95d6cc942c6397dfd9ed4d3c3f1d15cb159d4db4 (patch)
tree550369df48a83f01ad6bea8cfeb4509a5661406d
parente42c56cca07ad314f38ebdb6163c7c721f568d17 (diff)
downloadtcl-95d6cc942c6397dfd9ed4d3c3f1d15cb159d4db4.zip
tcl-95d6cc942c6397dfd9ed4d3c3f1d15cb159d4db4.tar.gz
tcl-95d6cc942c6397dfd9ed4d3c3f1d15cb159d4db4.tar.bz2
Opps... removed some left-over debugging code.
-rw-r--r--tools/man2help.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl
index 9f3d7fe..7982e37 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.10 2002/03/28 21:45:24 davygrvy Exp $
+# RCS: @(#) $Id: man2help.tcl,v 1.11 2002/03/28 21:52:41 davygrvy Exp $
#
#
@@ -117,8 +117,8 @@ set arg 0
if {![string compare [lindex $argv $arg] "-bitmap"]} {
set bitmap [lindex $argv [incr arg]]
}
-puts [set baseName [lindex $argv [incr arg]]]
-puts [set version [lindex $argv [incr arg]]]
+set baseName [lindex $argv [incr arg]]
+set version [lindex $argv [incr arg]]
set files {}
foreach i [lrange $argv [incr arg] end] {
set i [file join $i]