diff options
| author | davygrvy <davygrvy@pobox.com> | 2002-08-09 00:13:54 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2002-08-09 00:13:54 (GMT) |
| commit | 9e6f592f5ea267caab19b187d0cfcc826b02b0ab (patch) | |
| tree | 20a3da689ed60741724f627f2b702e69df33ac69 /tools/man2help.tcl | |
| parent | fa14cf27a333d8ca01bfae92f6f48feedcad040e (diff) | |
| download | tcl-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.tcl | 5 |
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] { |