diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2009-11-03 23:20:48 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2009-11-03 23:20:48 (GMT) |
| commit | a50259562aae340b17e22234cecc19ea8f54cff9 (patch) | |
| tree | 8c8b5ed6d64a1c63c7037f730150a33ac23d8b89 /tests/tcltest.test | |
| parent | add57d88c11c03bdc4bace6d4b47fb64f35c2098 (diff) | |
| download | tcl-a50259562aae340b17e22234cecc19ea8f54cff9.zip tcl-a50259562aae340b17e22234cecc19ea8f54cff9.tar.gz tcl-a50259562aae340b17e22234cecc19ea8f54cff9.tar.bz2 | |
Backported permissions fix for Windows 7 to cleanup test directory.
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 637612d..66d64f2 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.55 2007/01/18 22:09:44 dkf Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.55.4.1 2009/11/03 23:20:48 patthoyts Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -724,6 +724,7 @@ switch $::tcl_platform(platform) { file attributes $notWriteableDir -permissions 777 } default { + catch {testchmod 777 $notWriteableDir} catch {file attributes $notWriteableDir -readonly 0} } } |