From: ellson <devnull@localhost>
Date: Tue, 25 Oct 2005 15:31:15 +0000 (+0000)
Subject: fix for doc generation on older distributions
X-Git-Tag: LAST_LIBGRAPH~32^2~7008
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=592949acb9062439a048e6db14646e4cfa4746c4;p=graphviz

fix for doc generation on older distributions
---

diff --git a/tclpkg/gv/gv_doc_writer.tcl b/tclpkg/gv/gv_doc_writer.tcl
index ee17ae014..9aebcef41 100755
--- a/tclpkg/gv/gv_doc_writer.tcl
+++ b/tclpkg/gv/gv_doc_writer.tcl
@@ -52,8 +52,8 @@ proc gv_doc_command {cmd} {
 	foreach {functype params} $FUNC($cmd) {
 		set par {}
 		foreach {paramtype param} $params {
-			if {[string length [array names TYPES -exact "$paramtype $param"]]} {
-				lappend par "$TYPES($paramtype $param)"
+			if {[info exists TYPES([list $paramtype $param])]} {
+				lappend par $TYPES([list $paramtype $param])
 			} {
 				lappend par "$TYPES($paramtype) $param"
 			}