diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/man2help.tcl | 6 | ||||
| -rw-r--r-- | tools/man2html.tcl | 2 |
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 } } |