diff options
| author | hobbs <hobbs> | 1999-12-22 22:59:59 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-12-22 22:59:59 (GMT) |
| commit | 7f6b5be05179d4a5c06292f3821f796a3cbac081 (patch) | |
| tree | e78f0ed240e8427c866ada2f933aa0d74ac25e95 /tools/man2help.tcl | |
| parent | 95c0c1a32d5afbe339532713c5054c392e8ecda0 (diff) | |
| download | tcl-7f6b5be05179d4a5c06292f3821f796a3cbac081.zip tcl-7f6b5be05179d4a5c06292f3821f796a3cbac081.tar.gz tcl-7f6b5be05179d4a5c06292f3821f796a3cbac081.tar.bz2 | |
minor bug fix in man2help.tcl and updated configure.in to 8.3
Diffstat (limited to 'tools/man2help.tcl')
| -rw-r--r-- | tools/man2help.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index efe254b..60914a5 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.5 1999/12/21 23:59:28 hobbs Exp $ +# RCS: @(#) $Id: man2help.tcl,v 1.6 1999/12/22 22:59:59 hobbs Exp $ # # @@ -29,7 +29,7 @@ proc generateContents {basename version files} { puts $fd "1 $section" set lastTopic {} foreach topic [getTopics $package $section] { - if {[string equal $lastTopic $topic]} { + if {[string compare $lastTopic $topic]} { set id $topics($package,$section,$topic) puts $fd "2 $topic=$id" set lastTopic $topic |