diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 14:39:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 14:39:19 (GMT) |
| commit | c30f3e95690c1fa32296fb55213cb7f03ac14345 (patch) | |
| tree | c0408e038d57d98337a74e64296d142d190b8dd9 /tools | |
| parent | f23698ae342e74bcedb17f24cde0f80106e14ea7 (diff) | |
| parent | c99f35416608c70d8e277b38405429a50b64bd84 (diff) | |
| download | tcl-c30f3e95690c1fa32296fb55213cb7f03ac14345.zip tcl-c30f3e95690c1fa32296fb55213cb7f03ac14345.tar.gz tcl-c30f3e95690c1fa32296fb55213cb7f03ac14345.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/installData.tcl | 4 | ||||
| -rw-r--r-- | tools/mkVfs.tcl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tools/installData.tcl b/tools/installData.tcl index dd7976b..4a3b1ee 100644 --- a/tools/installData.tcl +++ b/tools/installData.tcl @@ -32,7 +32,7 @@ proc copyDir {d1 d2} { } elseif {[file isfile $f]} { file copy -force $f [file join $d2 $ftail] if {$::tcl_platform(platform) eq {unix}} { - file attributes [file join $d2 $ftail] -permissions 0644 + file attributes [file join $d2 $ftail] -permissions 0o644 } else { file attributes [file join $d2 $ftail] -readonly 1 } @@ -40,7 +40,7 @@ proc copyDir {d1 d2} { } if {$::tcl_platform(platform) eq {unix}} { - file attributes $d2 -permissions 0755 + file attributes $d2 -permissions 0o755 } else { file attributes $d2 -readonly 1 } diff --git a/tools/mkVfs.tcl b/tools/mkVfs.tcl index cbfb81e..c4021f6 100644 --- a/tools/mkVfs.tcl +++ b/tools/mkVfs.tcl @@ -39,7 +39,7 @@ proc copyDir {d1 d2} { } elseif {[file isfile $f]} { file copy -force $f [file join $d2 $ftail] if {$::tcl_platform(platform) eq {unix}} { - file attributes [file join $d2 $ftail] -permissions 0644 + file attributes [file join $d2 $ftail] -permissions 0o644 } else { file attributes [file join $d2 $ftail] -readonly 1 } @@ -47,7 +47,7 @@ proc copyDir {d1 d2} { } if {$::tcl_platform(platform) eq {unix}} { - file attributes $d2 -permissions 0755 + file attributes $d2 -permissions 0o755 } else { file attributes $d2 -readonly 1 } |