From df55292554aa4c92a18f5fe3551b94d990d95ebe Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@users.sourceforge.net>
Date: Mon, 11 Aug 2008 21:31:09 +0000
Subject: Remove the 8.5+ requirement to avoid problems with shipping http as a
tcl module.
---
ChangeLog | 4 ++++
library/http/http.tcl | 8 ++++----
2 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index f89e4e0..477fdfe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-11 Pat Thoyts <patthoyts@users.sourceforge.net>
+
+ * library/http/http.tcl: Remove 8.5 requirement.
+
2008-08-11 Andreas Kupries <andreask@activestate.com>
* library/tm.tcl: Added a 'package provide' command to the
diff --git a/library/http/http.tcl b/library/http/http.tcl
index 261a331..d5b299d 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: http.tcl,v 1.67.2.2 2008/08/11 15:49:26 dgp Exp $
+# RCS: @(#) $Id: http.tcl,v 1.67.2.3 2008/08/11 21:31:11 patthoyts Exp $
package require Tcl 8.5.0
# Keep this in sync with pkgIndex.tcl and with the install directories
@@ -1406,10 +1406,10 @@ proc http::Gunzip {data} {
incr pos
}
- binary scan [string range $data end-7 end] iuiu crc size
+ binary scan [string range $data end-7 end] ii crc size
set inflated [zlib inflate [string range $data $pos end-8]]
-
- if { $crc != [set chk [zlib crc32 $inflated]] } {
+ set chk [zlib crc32 $inflated]
+ if { ($crc & 0xffffffff) != ($chk & 0xffffffff)} {
return -code error "invalid data: checksum mismatch $crc != $chk"
}
return $inflated
--
cgit v0.12