diff options
Diffstat (limited to 'library/install.tcl')
| -rw-r--r-- | library/install.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/install.tcl b/library/install.tcl index 8d37d78..2c5afa7 100644 --- a/library/install.tcl +++ b/library/install.tcl @@ -202,7 +202,7 @@ proc ::practcl::installDir {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 } @@ -210,7 +210,7 @@ proc ::practcl::installDir {d1 d2} { } if {$::tcl_platform(platform) eq {unix}} { - file attributes $d2 -permissions 0755 + file attributes $d2 -permissions 0o755 } else { file attributes $d2 -readonly 1 } |