diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2020-12-06 18:24:00 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2020-12-06 18:24:00 (GMT) |
| commit | 0f93742804d047a8de0fe3acda7b019daae7b273 (patch) | |
| tree | 18bed9fa65dbe84ebb028ca81c52ae123e9b3867 /tools/mkVfs.tcl | |
| parent | 7dd7fe1b6c5348772912a64134334358a39f8211 (diff) | |
| parent | fcee72d2c7daddae9dd63e4eb14746b7bd319aa9 (diff) | |
| download | tcl-0f93742804d047a8de0fe3acda7b019daae7b273.zip tcl-0f93742804d047a8de0fe3acda7b019daae7b273.tar.gz tcl-0f93742804d047a8de0fe3acda7b019daae7b273.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'tools/mkVfs.tcl')
| -rw-r--r-- | tools/mkVfs.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
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 } |