From 9e6f592f5ea267caab19b187d0cfcc826b02b0ab Mon Sep 17 00:00:00 2001
From: davygrvy <davygrvy@pobox.com>
Date: Fri, 9 Aug 2002 00:13:54 +0000
Subject: Fixed $argv handling bug where if -bitmap wasn't specified $argc was
 off by one.

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