diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-10-19 22:50:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-10-19 22:50:37 (GMT) |
| commit | 30afdd6c6e8d8d88e14402e7976a81f329b97364 (patch) | |
| tree | 48ff659ae07503aceaa55c3c15cb6feee3d8e4c0 /tests/http11.test | |
| parent | 5d1610058df50e70544392db905e169a0c3982ed (diff) | |
| download | tcl-30afdd6c6e8d8d88e14402e7976a81f329b97364.zip tcl-30afdd6c6e8d8d88e14402e7976a81f329b97364.tar.gz tcl-30afdd6c6e8d8d88e14402e7976a81f329b97364.tar.bz2 | |
* generic/tclZlib.c (Tcl_ZlibStreamGet): [Bug 3081008]: Ensure that
when a bytearray gets its internals entangled with zlib for more than
a passing moment, that bytearray will never be shimmered away. This
increases the amount of copying but is simple to get right, which is a
reasonable trade-off.
* generic/tclStringObj.c (Tcl_AppendObjToObj): Added some special
cases so that most of the time when you build up a bytearray by
appending, it actually ends up being a bytearray rather than
shimmering back and forth to string.
* tests/http11.test (check_crc): Use a simpler way to express the
functionality of this procedure.
Diffstat (limited to 'tests/http11.test')
| -rw-r--r-- | tests/http11.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/http11.test b/tests/http11.test index 0cecaa1..230ce5a 100644 --- a/tests/http11.test +++ b/tests/http11.test @@ -62,7 +62,7 @@ proc meta {tok {key ""}} { proc check_crc {tok args} { set crc [meta $tok x-crc32] - if {[llength $args]} {set data [lindex $args 0]} else {set data [http::data $tok]} + set data [expr {[llength $args] ? [lindex $args 0] : [http::data $tok]}] set chk [format %x [zlib crc32 $data]] if {$crc ne $chk} { return "crc32 mismatch: $crc ne $chk" |