Import Tcl 8.6.11
This commit is contained in:
@@ -9,8 +9,8 @@
|
||||
# See the file "license.terms" for information on usage and redistribution
|
||||
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
if {[lsearch [namespace children] ::tcltest] == -1} {
|
||||
package require tcltest
|
||||
if {"::tcltest" ni [namespace children]} {
|
||||
package require tcltest 2.5
|
||||
namespace import -force ::tcltest::*
|
||||
}
|
||||
|
||||
@@ -24,7 +24,7 @@ cd [temporaryDirectory]
|
||||
|
||||
catch {
|
||||
set oldPath $env(PATH)
|
||||
file attributes [makeFile "" junk] -perm 0777
|
||||
file attributes [makeFile "" junk] -perm 0o777
|
||||
}
|
||||
set absPath [file join [temporaryDirectory] junk]
|
||||
|
||||
|
||||
Reference in New Issue
Block a user