diff options
| author | vincentdarley <vincentdarley> | 2006-03-19 22:47:28 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2006-03-19 22:47:28 (GMT) |
| commit | 65445fd58393fa26379df62078124e7ca893bb75 (patch) | |
| tree | c4a57331f774fdba513a729f09ae6776ac109c00 /tests/tcltest.test | |
| parent | 72206dd82f0adc6ea37e52500b0be03bb3b830fb (diff) | |
| download | tcl-65445fd58393fa26379df62078124e7ca893bb75.zip tcl-65445fd58393fa26379df62078124e7ca893bb75.tar.gz tcl-65445fd58393fa26379df62078124e7ca893bb75.tar.bz2 | |
backport of file writable fixes
Diffstat (limited to 'tests/tcltest.test')
| -rwxr-xr-x | tests/tcltest.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 7d3b1c4..c40826b 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -6,7 +6,7 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.37.2.10 2005/02/25 22:37:52 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.37.2.11 2006/03/19 22:47:30 vincentdarley Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -558,6 +558,7 @@ switch $tcl_platform(platform) { } default { catch {file attributes $notWriteableDir -readonly 1} + catch {testchmod 000 $notWriteableDir} } } |