diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rwxr-xr-x | tests/tcltest.test | 3 |
2 files changed, 6 insertions, 1 deletions
@@ -1,3 +1,7 @@ +2009-11-03 Pat Thoyts <patthoyts@users.sourceforge.net> + + * tests/tcltest.test: Backport permissions fix for Win7. + 2009-11-03 Don Porter <dgp@users.sourceforge.net> *** 8.5.8 TAGGED FOR RELEASE *** 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} } } |