summaryrefslogtreecommitdiffstats
path: root/tools/man2help.tcl
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2002-08-09 00:13:54 (GMT)
committerdavygrvy <davygrvy@pobox.com>2002-08-09 00:13:54 (GMT)
commit9e6f592f5ea267caab19b187d0cfcc826b02b0ab (patch)
tree20a3da689ed60741724f627f2b702e69df33ac69 /tools/man2help.tcl
parentfa14cf27a333d8ca01bfae92f6f48feedcad040e (diff)
downloadtcl-9e6f592f5ea267caab19b187d0cfcc826b02b0ab.zip
tcl-9e6f592f5ea267caab19b187d0cfcc826b02b0ab.tar.gz
tcl-9e6f592f5ea267caab19b187d0cfcc826b02b0ab.tar.bz2
Fixed $argv handling bug where if -bitmap wasn't specified $argc
was off by one.
Diffstat (limited to 'tools/man2help.tcl')
-rw-r--r--tools/man2help.tcl5
1 files changed, 3 insertions, 2 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl
index 9b9fb52..d172d1e 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.12 2002/05/08 04:21:07 davygrvy Exp $
+# RCS: @(#) $Id: man2help.tcl,v 1.13 2002/08/09 00:13:54 davygrvy Exp $
#
#
@@ -116,8 +116,9 @@ set arg 0
if {![string compare [lindex $argv $arg] "-bitmap"]} {
set bitmap [lindex $argv [incr arg]]
+ incr arg
}
-set baseName [lindex $argv [incr arg]]
+set baseName [lindex $argv $arg]
set version [lindex $argv [incr arg]]
set files {}
foreach i [lrange $argv [incr arg] end] {