diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-07-17 18:43:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-07-17 18:43:55 (GMT) |
| commit | 0cb480df70afc69c2a1637894dddd3f0b4e6d351 (patch) | |
| tree | 6d52a7e94842e5d94b26a36ca09c907ae00c94b5 /tests/tcltest.test | |
| parent | 96410478b940f8a102bb8d888524569e4c1e873c (diff) | |
| download | tcl-0cb480df70afc69c2a1637894dddd3f0b4e6d351.zip tcl-0cb480df70afc69c2a1637894dddd3f0b4e6d351.tar.gz tcl-0cb480df70afc69c2a1637894dddd3f0b4e6d351.tar.bz2 | |
Finally, use correct octal notation which works in Tcl 9 as well.
Diffstat (limited to 'tests/tcltest.test')
| -rw-r--r-- | tests/tcltest.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 5894308..e66678b 100644 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -717,7 +717,7 @@ switch -- $::tcl_platform(platform) { file attributes $notWriteableDir -permissions 777 } default { - catch {testchmod 0777 $notWriteableDir} + catch {testchmod 0o777 $notWriteableDir} catch {file attributes $notWriteableDir -readonly 0} } } |