Missed a few spots with the previous checkin. Now only

tools/tcltk-man2html.tcl is left unfixed, but that file is sufficiently
complex that I don't dare touch it without understanding exactly what all
of the supposed directory separators are doing there.  In any case, this
file is probably not going to be used by ordinary users; developers can put
up with a few more "pointless restrictions"...


FossilOrigin-Name: 3fc9c1b16ad65911c5551f6e9a3e2e119c003c8e

2 files changed, 4 insertions, 4 deletions

diff --git a/tools/man2help.tcl b/tools/man2help.tcl
index 60914a5..130fde2 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.6 1999/12/22 22:59:59 hobbs Exp $
+# RCS: @(#) $Id: man2help.tcl,v 1.7 2000/11/24 14:17:12 dkf Exp $
 # 
 
 #
@@ -98,7 +98,7 @@ proc doFile {file} {
 
 proc doDir dir {
     puts "Generating man pages for $dir..."
-    foreach f [lsort [glob [file join $dir *.\[13n\]]]] {
+    foreach f [lsort [glob -directory $dir "*.\[13n\]"]] {
 	do $f
     }
 }
@@ -116,7 +116,7 @@ set files {}
 foreach i [lrange $argv 2 end] {
     set i [file join $i]
     if {[file isdir $i]} {
-	foreach f [lsort [glob [file join $i *.\[13n\]]]] {
+	foreach f [lsort [glob -directory $i "*.\[13n\]"]] {
 	    lappend files $f
 	}
     } elseif {[file exists $i]} {
diff --git a/tools/man2html.tcl b/tools/man2html.tcl
index cb60887..6f44aaa 100644
--- a/tools/man2html.tcl
+++ b/tools/man2html.tcl
@@ -75,7 +75,7 @@ proc footer {packages} {
 # dir -			Name of the directory.
 
 proc doDir dir {
-    foreach f [lsort [glob $dir/*.\[13n\]]] {
+    foreach f [lsort [glob -directory $dir "*.\[13n\]"]] {
 	do $f	;# defined in man2html1.tcl & man2html2.tcl
     }
 }