diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 13:51:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-03 13:51:18 (GMT) |
| commit | defc33228dae46280943ff6cc62d3a4a3284e056 (patch) | |
| tree | 5b46d34089b0516431704c23338686ba913e602f /tools | |
| parent | 910d0222de6f3bd8fdf3b7c061cdb89581b2f2df (diff) | |
| download | tcl-defc33228dae46280943ff6cc62d3a4a3284e056.zip tcl-defc33228dae46280943ff6cc62d3a4a3284e056.tar.gz tcl-defc33228dae46280943ff6cc62d3a4a3284e056.tar.bz2 | |
Use 0o??? notation for octal numbers in tools and testcases in stead of 0???. Although it still works in 8.6, it is deprecated an will be removed in 9.0.
Diffstat (limited to 'tools')
| -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 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 } |