Import build of Tcl/Tk 8.6.10
This commit is contained in:
@@ -22,7 +22,7 @@ namespace eval tcltest {
|
||||
# When the version number changes, be sure to update the pkgIndex.tcl file,
|
||||
# and the install directory in the Makefiles. When the minor version
|
||||
# changes (new feature) be sure to update the man page as well.
|
||||
variable Version 2.5.0
|
||||
variable Version 2.5.1
|
||||
|
||||
# Compatibility support for dumb variables defined in tcltest 1
|
||||
# Do not use these. Call [package provide Tcl] and [info patchlevel]
|
||||
@@ -3072,7 +3072,12 @@ proc tcltest::removeFile {name {directory ""}} {
|
||||
Warn "removeFile removing \"$fullName\":\n not a file"
|
||||
}
|
||||
}
|
||||
return [file delete -- $fullName]
|
||||
if {[catch {file delete -- $fullName} msg ]} {
|
||||
DebugDo 1 {
|
||||
Warn "removeFile removing \"$fullName\":\n failed: $msg"
|
||||
}
|
||||
}
|
||||
return
|
||||
}
|
||||
|
||||
# tcltest::makeDirectory --
|
||||
@@ -11,7 +11,7 @@
|
||||
package require Tcl 8.6-
|
||||
# Keep this in sync with pkgIndex.tcl and with the install directories in
|
||||
# Makefiles
|
||||
package provide http 2.9.0
|
||||
package provide http 2.9.1
|
||||
|
||||
namespace eval http {
|
||||
# Allow resourcing to not clobber existing data
|
||||
@@ -2978,7 +2978,7 @@ proc http::IsBinaryContentType {type} {
|
||||
# and so on.
|
||||
if {$major eq "application"} {
|
||||
set minor [string trimright $minor]
|
||||
if {$minor in {"xml" "xml-external-parsed-entity" "xml-dtd"}} {
|
||||
if {$minor in {"json" "xml" "xml-external-parsed-entity" "xml-dtd"}} {
|
||||
return false
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user