diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2000-11-24 14:17:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2000-11-24 14:17:11 (GMT) |
| commit | 64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4 (patch) | |
| tree | 0ac877e19d760b7a3384a0a566b904f74ff11f77 /tools/man2help.tcl | |
| parent | b3278ac1c032713c88c6f082112ce0f9c7d2588b (diff) | |
| download | tcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.zip tcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.tar.gz tcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.tar.bz2 | |
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"...
Diffstat (limited to 'tools/man2help.tcl')
| -rw-r--r-- | tools/man2help.tcl | 6 |
1 files changed, 3 insertions, 3 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]} { |