diff options
Diffstat (limited to 'tools/installData.tcl')
| -rw-r--r-- | tools/installData.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/installData.tcl b/tools/installData.tcl index 4b43f1e..04f46b0 100644 --- a/tools/installData.tcl +++ b/tools/installData.tcl @@ -19,7 +19,7 @@ exec tclsh "$0" ${1+"$@"} proc copyDir {d1 d2} { - puts [format {%*sCreating %s} [expr {4 * [info level]}] {} \ + puts [format "%*sCreating %s" [expr {4 * [info level]}] "" \ [file tail $d2]] file delete -force -- $d2 @@ -30,7 +30,7 @@ proc copyDir {d1 d2} { if {[file isdirectory $f] && [string compare CVS $ftail]} { copyDir $f [file join $d2 $ftail] } elseif {[file isfile $f]} { - file copy -force $f [file join $d2 $ftail] + file copy -force -- $f [file join $d2 $ftail] if {$::tcl_platform(platform) eq {unix}} { file attributes [file join $d2 $ftail] -permissions 0644 } else { |