diff options
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]} { |